(DEFLIST (EDIT1 EDVAL EDITL1 EDITREAD EDITCOM EDITCOMA EDITCOML EDITMAC EDITCOMS EDITH EDIT!UNDO UNDOEDITCOM
		EDITSMASH EDITNCONC EDIT1F EDIT2F EDITOF EDIT4F EDIT4F1 EDITBF EDITBF1 EDITNTH BPNT0 BPNT
		EDITDEFAULT EDUP EDIT* EDOR ERRCOM EDRPT EDLOC EDLOCL EDITELT EDITCONT EDITSW EDITTO EDITBELOW
		EDITRAN OLDPROMPT FINDARG COM0 L0 READBUF LASTP2 LASTP1 LCFLG FINDFLAG UNDOLST1 COM MESS ATM
		TOPFLG COPYFLG FF SN TOFLG)
	 T 
	 NOCALL)

(DEFLIST (%PRINFN) T CALL)

(LAP ## FSUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL COMS) S)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEI 4Q (QUOTE NIL))
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(0Q 4Q (SPECIAL UNDOLST1) S)
	(PUSHJ P EDITCOMS)
	(PUSHJ P SPECSTR)
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITFNS FSUBR)
	(PUSH P 1Q)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E *EVAL) S)
	(PUSH P 1Q)
 TAG1	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG6)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG2)
 TAG6	(HLRZ@ 1Q 5Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG7)
	(HLRZ@ 1Q 5Q)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG11)
	(MOVEI 2Q (QUOTE PPCOM) S)
	(HLRZ@ 1Q 5Q)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E GET) S)
	(JUMPE 1Q TAG11)
	(HLRZ@ 1Q 0Q P)
	(HRRZ@ 1Q 1Q)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE QUOTE) S)
	(CALL 2Q (E XCONS) S)
	(HRRZ@ 2Q -1Q P)
	(CALL 2Q (E CONS) S)
	(CALL 17Q (E EDITFNS) S)
 TAG11	(JRST 0Q TAG5)
 TAG7	(PUSH P (C 0Q 0Q TAG15 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(HLRZ@ 1Q 5Q)
	(CALL 1Q (E PRINT) S)
	(HRRZ@ 2Q -7Q P)
	(CALL 2Q (E CONS) S)
	(CALL 17Q (E EDITF) S)
	(JRST 0Q *ERRSET2)
 TAG15
 TAG5	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG2	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDITF FSUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 1Q TAG6)
	(MOVEI 1Q (QUOTE =) S)
	(CALL 1Q (E PRINTC) S)
	(MOVE 1Q (SPECIAL LASTWORD) S)
	(CALL 1Q (E PRIN1) S)
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q -2Q P)
 TAG6	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG10)
	(HLRZ@ 1Q -2Q P)
	(MOVEI 2Q (QUOTE (BROKEN-IN NAMESCHANGED)) S)
	(MOVEM 1Q -1Q P)
	(CALL 2Q (E GETL) S)
	(JUMPE 1Q TAG12)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E UNBREAK!) S)
	(JRST 0Q TAG11)
 TAG12	(MOVEI 2Q (QUOTE TRACE) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG13)
	(HRRZ@ 5Q 1Q)
	(MOVEM 5Q -1Q P)
 TAG13
 TAG11	(MOVEI 2Q (QUOTE (EXPR FEXPR MACRO)) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E GETL) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG15)
	(CALL 1Q (E CADR) S)
	(CALL 1Q (E UNMACEXPAND) S)
	(HRRZ@ 5Q 0Q P)
	(HLRZ@ 3Q -2Q P)
	(HRRZ@ 2Q -2Q P)
	(HLRZ@ 1Q 5Q)
	(PUSH P 5Q)
	(CALL 3Q (E EDITE) S)
	(HRLM@ 1Q 0Q P)
	(MOVE 2Q (SPECIAL ALLFNS) S)
	(HLRZ@ 1Q -3Q P)
	(CALL 2Q (E ENTER) S)
	(MOVEM 1Q (SPECIAL ALLFNS) S)
	(HLRZ@ 1Q -3Q P)
	(MOVEM 1Q (SPECIAL LASTWORD) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG2)
 TAG15	(MOVEI 2Q (QUOTE VALUE) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG17)
	(HRRZ@ 1Q 1Q)
	(CALL 1Q (E CONSP) S)
	(JUMPN 1Q TAG1)
 TAG17	(JRST 0Q TAG7)
 TAG10	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPN 1Q TAG1)
 TAG7	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E PRINT) S)
	(MOVEI 1Q (QUOTE "not editable.") S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG1	(MOVEI 1Q (QUOTE =EDITV) S)
	(CALL 1Q (E PRINTC) S)
	(MOVE 1Q -2Q P)
	(CALL 17Q (E EDITV) S)
 TAG2	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDITV FSUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 1Q TAG5)
	(MOVEI 1Q (QUOTE =) S)
	(CALL 1Q (E PRINTC) S)
	(MOVE 1Q (SPECIAL EDITV) S)
	(CALL 1Q (E PRIN1) S)
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q -1Q P)
 TAG5	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG7)
	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E *EVAL) S)
	(MOVEI 3Q (QUOTE NIL))
	(HRRZ@ 2Q -1Q P)
	(CALL 3Q (E EDITE) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG1)
 TAG7	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG10)
	(MOVEI 2Q (QUOTE VALUE) S)
	(HLRZ@ 1Q -1Q P)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG10)
	(HRRZ@ 5Q 1Q)
	(PUSH P 5Q)
	(CALL 0Q (E UNBOUND) S)
	(POP P 5Q)
	(CAMN 1Q 5Q)
	(JRST 0Q TAG10)
	(HLRZ@ 3Q -1Q P)
	(HRRZ@ 2Q -1Q P)
	(HRRZ@ 1Q 0Q P)
	(CALL 3Q (E EDITE) S)
	(HRRM@ 1Q 0Q P)
	(MOVE 2Q (SPECIAL ALLVALS) S)
	(HLRZ@ 1Q -1Q P)
	(CALL 2Q (E ENTER) S)
	(MOVEM 1Q (SPECIAL ALLVALS) S)
	(HLRZ@ 1Q -1Q P)
	(MOVEM 1Q (SPECIAL EDITV) S)
	(JRST 0Q TAG1)
 TAG10	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E PRINT) S)
	(MOVEI 1Q (QUOTE "not editable.") S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(MOVEI 1Q (QUOTE NIL))
 TAG1	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDITP FSUBR)
	(PUSH P 1Q)
	(JUMPN 1Q TAG2)
	(MOVEI 1Q (QUOTE =) S)
	(CALL 1Q (E PRINTC) S)
	(MOVE 1Q (SPECIAL LASTWORD) S)
	(CALL 1Q (E PRIN1) S)
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q 0Q P)
 TAG2	(HLRZ@ 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG4)
	(MOVEI 1Q (QUOTE =EDITV) S)
	(CALL 1Q (E PRINT) S)
	(MOVE 1Q 0Q P)
	(CALL 17Q (E EDITV) S)
	(JRST 0Q TAG3)
 TAG4	(HLRZ@ 1Q 0Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG5)
	(HLRZ@ 3Q 0Q P)
	(HRRZ@ 2Q 0Q P)
	(HRRZ@ 1Q 3Q)
	(CALL 3Q (E EDITE) S)
	(MOVE 2Q (SPECIAL ALLFNS) S)
	(HLRZ@ 1Q 0Q P)
	(CALL 2Q (E ENTER) S)
	(MOVEM 1Q (SPECIAL ALLFNS) S)
	(HLRZ@ 1Q 0Q P)
	(MOVEM 1Q (SPECIAL LASTWORD) S)
	(JRST 0Q TAG3)
 TAG5	(HLRZ@ 1Q 0Q P)
	(CALL 1Q (E PRINT) S)
	(MOVEI 1Q (QUOTE "not editable.") S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG3	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDITE SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL COMS) S)
	(0Q 3Q (SPECIAL ATM) S)
	(PUSH P 1Q)
	(CALL 1Q (E PATOM) S)
	(JUMPE 1Q TAG2)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E PRINT) S)
	(MOVEI 1Q (QUOTE "not editable.") S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q 0Q P)
	(CALL 1Q (E NCONS) S)
	(MOVEI 5Q (QUOTE NIL))
	(MOVEI 4Q (QUOTE NIL))
	(MOVE 2Q (SPECIAL COMS) S)
	(CALL 5Q (E EDITL) S)
	(CALL 1Q (E LAST) S)
	(HLRZ@ 1Q 1Q)
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITEXPR SUBR)
	(PUSH P 1Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG2	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q 0Q P)
	(CALL 3Q (E EDITE) S)
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDITL SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(0Q 2Q (SPECIAL COMS) S)
	(0Q 3Q (SPECIAL ATM) S)
	(0Q 4Q (SPECIAL MARKLST) S)
	(0Q 5Q (SPECIAL MESS) S)
	(0Q 0Q (SPECIAL COM) S)
	(0Q 0Q (SPECIAL LASTAIL) S)
	(0Q 0Q (SPECIAL UNDOLST) S)
	(0Q 0Q (SPECIAL UNDOLST1) S)
	(0Q 0Q (SPECIAL FINDFLAG) S)
	(0Q 0Q (SPECIAL LCFLG) S)
	(0Q 0Q (SPECIAL UNFIND) S)
	(0Q 0Q (SPECIAL LASTP1) S)
	(0Q 0Q (SPECIAL LASTP2) S)
	(0Q 0Q (SPECIAL READBUF) S)
	(0Q 0Q (SPECIAL L0) S)
	(0Q 0Q (SPECIAL COM0) S)
	(0Q 0Q (SPECIAL OLDPROMPT) S)
	(0Q 0Q (SPECIAL FINDARG) S)
	(CALL 0Q (E UNBOUND) S)
	(MOVEM 1Q (SPECIAL FINDARG) S)
	(PUSH P (C 0Q 0Q TAG6 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVEI 1Q (QUOTE (EDITL0)) S)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q *ERRSET2)
 TAG6	(MOVEM 1Q (SPECIAL L) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG5)
	(HLRZ@ 1Q (SPECIAL L) S)
	(JRST 0Q TAG1)
 TAG5	(CALL 1Q (E ERR) S)
 TAG1	(JRST 0Q SPECSTR)
	NIL

(LAP EDITL0 SUBR)
	(MOVE 5Q (SPECIAL COMS) S)
	(JUMPE 5Q TAG6)
	(HLRZ@ 5Q 5Q)
	(CAIE 5Q (QUOTE START) S)
	(JRST 0Q TAG10)
	(HRRZ@ 5Q (SPECIAL COMS) S)
	(MOVEM 5Q (SPECIAL READBUF) S)
	(JRST 0Q TAG7)
 TAG10	(PUSH P (C 0Q 0Q TAG12 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(PUSHJ P EDIT1)
	(JRST 0Q *ERRSET2)
 TAG12	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG11)
	(MOVE 1Q (SPECIAL L) S)
	(JRST 0Q TAG2)
 TAG11	(CALL 1Q (E ERR) S)
 TAG7
 TAG6	(MOVE 1Q (SPECIAL MESS) S)
	(JUMPN 1Q TAG14)
	(MOVEI 1Q (QUOTE EDIT) S)
 TAG14	(CALL 1Q (E PRINT) S)
	(HLRZ@ 5Q (SPECIAL L) S)
	(PUSH P 5Q)
	(MOVEI 2Q (QUOTE LASTVALUE) S)
	(MOVEI 1Q (QUOTE EDIT) S)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q (SPECIAL COM) S)
	(JUMPN 1Q TAG20)
	(MOVEI 1Q (QUOTE ((NIL))) S)
 TAG20	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E LAST) S)
	(HLRZ@ 5Q 1Q)
	(POP P 4Q)
	(CAMN 5Q 4Q)
	(JRST 0Q TAG17)
	(MOVE 5Q (SPECIAL ATM) S)
	(JUMPE 5Q TAG16)
	(HLRZ@ 5Q (SPECIAL L) S)
	(PUSH P 5Q)
	(MOVEI 2Q (QUOTE EDIT-SAVE) S)
	(MOVE 1Q (SPECIAL ATM) S)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q (SPECIAL COM) S)
	(JUMPN 1Q TAG24)
	(MOVEI 1Q (QUOTE ((NIL))) S)
 TAG24	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E LAST) S)
	(HLRZ@ 5Q 1Q)
	(POP P 4Q)
	(CAME 5Q 4Q)
	(JRST 0Q TAG16)
 TAG17	(HLRZ@ 5Q (SPECIAL COM) S)
	(MOVEM 5Q (SPECIAL L) S)
	(HRRZ@ 5Q (SPECIAL COM) S)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q (SPECIAL MARKLST) S)
	(HRRZ@ 5Q (SPECIAL COM) S)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q (SPECIAL UNDOLST) S)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG27)
	(MOVE 2Q (SPECIAL UNDOLST) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL UNDOLST) S)
 TAG27	(HRRZ@ 5Q (SPECIAL COM) S)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG16
 TAG1	(PUSH P (C 0Q 0Q TAG30 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(PUSHJ P EDITL1)
	(JRST 0Q *ERRSET2)
 TAG30	(JRST 0Q TAG1)
 TAG2	(POPJ P)
	NIL

(LAP EDIT1 SUBR)
	(PUSH P (SPECIAL COMS) S)
 TAG1	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG6)
	(HLRZ@ 1Q 5Q)
	(MOVEM 1Q (SPECIAL COM) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P EDITCOM)
	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG6	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDVAL SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL SN) S)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P (C 0Q 0Q TAG1 0Q))
	(MOVEI 1Q (QUOTE T) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q (SPECIAL SN) S)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q *ERRSET2)
 TAG1	(PUSHJ P SPECSTR)
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITL1 SUBR)
 TAG1	(CLEARM 5Q (SPECIAL FINDFLAG) S)
	(MOVE 5Q (SPECIAL OLDPROMPT) S)
	(JUMPN 5Q TAG7)
	(CALL 0Q (E SPDLPT) S)
	(CALL 1Q (E ADD1) S)
	(MOVEI 3Q (QUOTE 0Q))
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE EDITL0) S)
	(CALL 3Q (E STKCOUNT) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE 43Q))
	(CALL 1Q (E PROMPT) S)
	(POP P 2Q)
	(CALL 2Q (E XCONS) S)
	(MOVEM 1Q (SPECIAL OLDPROMPT) S)
 TAG7
 TAG2	(CLEARM 5Q (SPECIAL UNDOLST1) S)
	(PUSHJ P EDITREAD)
	(MOVEM 1Q (SPECIAL COM) S)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L0) S)
	(MOVE 1Q (SPECIAL COM) S)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG11)
	(MOVE 5Q (SPECIAL COM) S)
	(JRST 0Q TAG10)
 TAG11	(HLRZ@ 5Q (SPECIAL COM) S)
 TAG10	(MOVEM 5Q (SPECIAL COM0) S)
	(PUSH P (C 0Q 0Q TAG14 0Q))
	(MOVEI 1Q (QUOTE T) S)
	(JSP 13Q *ERRSET1)
	(MOVEI 2Q (QUOTE T) S)
	(MOVE 1Q (SPECIAL COM) S)
	(PUSHJ P EDITCOM)
	(JRST 0Q *ERRSET2)
 TAG14	(PUSH P 1Q)
	(MOVE 5Q (SPECIAL UNDOLST1) S)
	(JUMPE 5Q TAG16)
	(MOVE 2Q 5Q)
	(MOVE 1Q (SPECIAL L0) S)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q (SPECIAL COM0) S)
	(CALL 2Q (E XCONS) S)
	(MOVEM 1Q (SPECIAL UNDOLST1) S)
	(MOVE 2Q (SPECIAL UNDOLST) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL UNDOLST) S)
 TAG16	(POP P 1Q)
	(CALL 1Q (E CONSP) S)
	(JUMPN 1Q TAG2)
	(CLEARM 5Q (SPECIAL READBUF) S)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 5Q (SPECIAL COM) S)
	(JUMPE 5Q TAG20)
	(MOVE 1Q 5Q)
	(CALL 1Q (E PRIN1) S)
	(MOVEI 1Q (QUOTE "  ?") S)
	(CALL 1Q (E PRINC) S)
 TAG20	(JRST 0Q TAG1)
	(POPJ P)
	NIL

(LAP EDITREAD SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL BASE) S)
	(0Q 0Q (SPECIAL *NOPOINT) S)
	(MOVEI 5Q (QUOTE 12Q))
	(MOVEM 5Q (SPECIAL BASE) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL *NOPOINT) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 5Q (SPECIAL READBUF) S)
	(JUMPN 5Q TAG6)
	(MOVEI 2Q (QUOTE T) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E INC) S)
	(MOVEI 2Q (QUOTE T) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E OUTC) S)
	(MOVEI 1Q (QUOTE 43Q))
	(CALL 1Q (E PROMPT) S)
	(CALL 0Q (E TALK) S)
 TAG1	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E LINES) S)
	(HLRZ@ 5Q (SPECIAL OLDPROMPT) S)
	(CAIN 5Q (QUOTE 1Q))
	(JRST 0Q TAG13)
	(MOVE 1Q 5Q)
	(CALL 1Q (E PRINC) S)
 TAG13	(PUSH P (C 0Q 0Q TAG15 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E LINEREAD) S)
	(JRST 0Q *ERRSET2)
 TAG15	(MOVEM 1Q (SPECIAL READBUF) S)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG1)
	(HLRZ@ 5Q (SPECIAL READBUF) S)
	(MOVEM 5Q (SPECIAL READBUF) S)
 TAG6	(HLRZ@ 5Q (SPECIAL READBUF) S)
	(HRRZ@ 4Q (SPECIAL READBUF) S)
	(MOVEM 4Q (SPECIAL READBUF) S)
	(MOVE 1Q 5Q)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITCOM SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL TOPFLG) S)
	(MOVE 5Q 1Q)
	(MOVEM 5Q (SPECIAL COM) S)
	(PUSH P 1Q)
	(MOVE 5Q (SPECIAL EDITRACEFN) S)
	(JUMPE 5Q TAG2)
	(PUSH P 5Q)
	(CALLF@ 1Q 0Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
 TAG2	(MOVE 5Q (SPECIAL FINDFLAG) S)
	(JUMPE 5Q TAG4)
	(CAIE 5Q (QUOTE BF) S)
	(JRST 0Q TAG6)
	(CLEARM 5Q (SPECIAL FINDFLAG) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITBF)
	(JRST 0Q TAG5)
 TAG6	(CLEARM 5Q (SPECIAL FINDFLAG) S)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E EDITQF) S)
 TAG5	(JRST 0Q TAG3)
 TAG4	(MOVE 1Q 0Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG10)
	(MOVE 2Q (SPECIAL L) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDIT1F)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q TAG3)
 TAG10	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG11)
	(MOVE 2Q (SPECIAL TOPFLG) S)
	(JUMPE 2Q TAG12)
	(TDZA 2Q 2Q)
 TAG12	(MOVEI 2Q (QUOTE T) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITCOMA)
	(JRST 0Q TAG3)
 TAG11	(MOVE 2Q (SPECIAL TOPFLG) S)
	(JUMPE 2Q TAG14)
	(TDZA 2Q 2Q)
 TAG14	(MOVEI 2Q (QUOTE T) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITCOML)
 TAG3	(HLRZ@ 1Q (SPECIAL L) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITCOMA SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL COPYFLG) S)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CAIE 1Q (QUOTE NIL))
	(JRST 0Q TAG7)
	(JRST 0Q TAG6)
 TAG7	(CAIE 1Q (QUOTE OK) S)
	(JRST 0Q TAG10)
	(MOVE 5Q (SPECIAL ATM) S)
	(JUMPE 5Q TAG12)
	(MOVEI 2Q (QUOTE EDIT-SAVE) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E REMPROP) S)
 TAG12	(MOVE 1Q (SPECIAL L) S)
	(CALL 1Q (E LAST) S)
	(MOVE 2Q (SPECIAL L) S)
	(PUSH P 1Q)
	(MOVE 1Q (SPECIAL UNDOLST) S)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q (SPECIAL MARKLST) S)
	(CALL 2Q (E XCONS) S)
	(POP P 2Q)
	(CALL 2Q (E XCONS) S)
	(MOVEI 3Q (QUOTE LASTVALUE) S)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE EDIT) S)
	(CALL 3Q (E PUTPROP) S)
	(HRRZ@ 1Q (SPECIAL OLDPROMPT) S)
	(CALL 1Q (E PROMPT) S)
	(MOVE 2Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE EDITL0) S)
	(CALL 2Q (E RETFROM) S)
	(JRST 0Q TAG6)
 TAG10	(CAIE 1Q (QUOTE STOP) S)
	(JRST 0Q TAG13)
	(HRRZ@ 1Q (SPECIAL OLDPROMPT) S)
	(CALL 1Q (E PROMPT) S)
	(CALL 0Q (E SPDLPT) S)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE EDITL0) S)
	(CALL 3Q (E STKSRCH) S)
	(MOVEI 2Q (QUOTE (ERR)) S)
	(CALL 2Q (E SPREVAL) S)
	(JRST 0Q TAG6)
 TAG13	(CAIE 1Q (QUOTE SAVE) S)
	(JRST 0Q TAG14)
	(MOVE 5Q (SPECIAL ATM) S)
	(JUMPE 5Q TAG16)
	(MOVE 2Q (SPECIAL UNFIND) S)
	(MOVE 1Q (SPECIAL UNDOLST) S)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q (SPECIAL MARKLST) S)
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q (SPECIAL L) S)
	(CALL 2Q (E XCONS) S)
	(MOVEI 3Q (QUOTE EDIT-SAVE) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q 5Q)
	(CALL 3Q (E PUTPROP) S)
	(MOVEI 3Q (QUOTE LASTVALUE) S)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE EDIT) S)
	(CALL 3Q (E PUTPROP) S)
 TAG16	(HRRZ@ 1Q (SPECIAL OLDPROMPT) S)
	(CALL 1Q (E PROMPT) S)
	(MOVE 2Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE EDITL0) S)
	(CALL 2Q (E RETFROM) S)
	(JRST 0Q TAG6)
 TAG14	(CAIE 1Q (QUOTE TTY:) S)
	(JRST 0Q TAG17)
	(MOVE 5Q (SPECIAL COM0) S)
	(MOVEM 5Q (SPECIAL COM) S)
	(MOVEI 5Q (QUOTE TTY:) S)
	(MOVEI 4Q (QUOTE NIL))
	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q (SPECIAL L) S)
	(CALL 5Q (E EDITL) S)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q TAG6)
 TAG17	(CAIE 1Q (QUOTE E) S)
	(JRST 0Q TAG20)
	(MOVE 5Q (SPECIAL TOPFLG) S)
	(JUMPE 5Q TAG22)
	(PUSHJ P EDITREAD)
	(PUSHJ P EDVAL)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG24)
	(HLRZ@ 1Q 0Q P)
	(CALL 1Q (E %PRINFN) S)
 TAG24	(JRST 0Q TAG21)
 TAG22	(CALL 1Q (E EDITQF) S)
 TAG21	(JRST 0Q TAG6)
 TAG20	(CAIE 1Q (QUOTE P) S)
	(JRST 0Q TAG26)
	(MOVE 2Q (SPECIAL EDITPLEV) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
	(JRST 0Q TAG6)
 TAG26	(CAIE 1Q (QUOTE P;) S)
	(JRST 0Q TAG27)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL COMMENTFLG) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL COMMENTFLG) S)
	(MOVE 2Q (SPECIAL EDITPLEV) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
	(PUSHJ P SPECSTR)
	(JRST 0Q TAG6)
 TAG27	(CAIE 1Q (QUOTE ?) S)
	(JRST 0Q TAG33)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL COMMENTFLG) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL COMMENTFLG) S)
	(MOVEI 2Q (QUOTE 144Q))
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
	(PUSHJ P SPECSTR)
	(JRST 0Q TAG6)
 TAG33	(CAIE 1Q (QUOTE PP) S)
	(JRST 0Q TAG37)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
	(JRST 0Q TAG6)
 TAG37	(CAIE 1Q (QUOTE PP;) S)
	(JRST 0Q TAG40)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL COMMENTFLG) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL COMMENTFLG) S)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
	(PUSHJ P SPECSTR)
	(JRST 0Q TAG6)
 TAG40	(CAIE 1Q (QUOTE ↑) S)
	(JRST 0Q TAG44)
	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG46)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG46	(MOVE 1Q (SPECIAL L) S)
	(CALL 1Q (E LAST) S)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q TAG6)
 TAG44	(CAIE 1Q (QUOTE !0) S)
	(JRST 0Q TAG47)
	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPN 5Q TAG51)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG51
 TAG1	(HRRZ@ 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L) S)
	(HRRZ@ 2Q 5Q)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q 5Q)
	(CALL 2Q (E TAILP) S)
	(JUMPN 1Q TAG1)
	(JRST 0Q TAG6)
 TAG47	(CAIE 1Q (QUOTE MARK) S)
	(JRST 0Q TAG56)
	(MOVE 2Q (SPECIAL MARKLST) S)
	(MOVE 1Q (SPECIAL L) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL MARKLST) S)
	(JRST 0Q TAG6)
 TAG56	(CAIE 1Q (QUOTE UNDO) S)
	(JRST 0Q TAG57)
	(PUSH P (SPECIAL TOPFLG) S)
	(MOVE 3Q (SPECIAL READBUF) S)
	(JUMPE 3Q TAG61)
	(PUSHJ P EDITREAD)
	(MOVE 3Q 1Q)
 TAG61	(MOVEI 2Q (QUOTE NIL))
	(POP P 1Q)
	(PUSHJ P EDIT!UNDO)
	(JRST 0Q TAG6)
 TAG57	(CAIE 1Q (QUOTE TEST) S)
	(JRST 0Q TAG62)
	(MOVE 2Q (SPECIAL UNDOLST) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL UNDOLST) S)
	(JRST 0Q TAG6)
 TAG62	(CAIE 1Q (QUOTE !UNDO) S)
	(JRST 0Q TAG63)
	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE T) S)
	(MOVEI 1Q (QUOTE T) S)
	(PUSHJ P EDIT!UNDO)
	(JRST 0Q TAG6)
 TAG63	(CAIE 1Q (QUOTE UNBLOCK) S)
	(JRST 0Q TAG64)
	(MOVE 2Q (SPECIAL UNDOLST) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG66)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(HRRZ@ 3Q 0Q P)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(JRST 0Q TAG65)
 TAG66	(MOVEI 1Q (QUOTE "Not Blocked") S)
	(CALL 1Q (E PRINC) S)
 TAG65	(JRST 0Q TAG6)
 TAG64	(CAIE 1Q (QUOTE ←) S)
	(JRST 0Q TAG70)
	(MOVE 5Q (SPECIAL MARKLST) S)
	(JUMPE 5Q TAG72)
	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG74)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG74	(HLRZ@ 5Q (SPECIAL MARKLST) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JRST 0Q TAG71)
 TAG72	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG71	(JRST 0Q TAG6)
 TAG70	(MOVEI 2Q (QUOTE (< \)) S)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG76)
	(MOVE 5Q (SPECIAL UNFIND) S)
	(JUMPE 5Q TAG100)
	(MOVE 5Q (SPECIAL L) S)
	(MOVE 4Q (SPECIAL UNFIND) S)
	(MOVEM 4Q (SPECIAL L) S)
	(MOVEM 5Q -1Q P)
	(HRRZ@ 4Q 5Q)
	(JUMPE 4Q TAG102)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG102	(JRST 0Q TAG77)
 TAG100	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG77	(JRST 0Q TAG6)
 TAG76	(MOVEI 2Q (QUOTE (<P \P)) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG104)
	(MOVE 5Q (SPECIAL LASTP1) S)
	(JUMPE 5Q TAG106)
	(CAMN 5Q (SPECIAL L) S)
	(JRST 0Q TAG106)
	(MOVE 5Q (SPECIAL LASTP1) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JRST 0Q TAG105)
 TAG106	(MOVE 5Q (SPECIAL LASTP2) S)
	(JUMPE 5Q TAG111)
	(CAMN 5Q (SPECIAL L) S)
	(JRST 0Q TAG111)
	(MOVE 5Q (SPECIAL LASTP2) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JRST 0Q TAG105)
 TAG111	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG105	(JRST 0Q TAG6)
 TAG104	(MOVE 5Q -1Q P)
	(CAIE 5Q (QUOTE ←←) S)
	(JRST 0Q TAG115)
	(MOVE 5Q (SPECIAL MARKLST) S)
	(JUMPE 5Q TAG117)
	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG121)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG121	(HLRZ@ 5Q (SPECIAL MARKLST) S)
	(MOVEM 5Q (SPECIAL L) S)
	(HRRZ@ 5Q (SPECIAL MARKLST) S)
	(MOVEM 5Q (SPECIAL MARKLST) S)
	(JRST 0Q TAG116)
 TAG117	(CALL 1Q (E ERR) S)
 TAG116	(JRST 0Q TAG6)
 TAG115	(MOVEI 2Q (QUOTE (F BF FP BFP)) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG123)
	(MOVE 5Q (SPECIAL TOPFLG) S)
	(JUMPN 5Q TAG125)
	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL FINDFLAG) S)
	(JRST 0Q TAG4)
 TAG125	(MOVE 5Q (SPECIAL READBUF) S)
	(JUMPN 5Q TAG127)
	(MOVEI 1Q (QUOTE FINDARG) S)
	(CALL 1Q (E BOUNDP) S)
	(JUMPN 1Q TAG126)
 TAG127	(PUSHJ P EDITREAD)
	(MOVEM 1Q (SPECIAL FINDARG) S)
 TAG126	(MOVEI 2Q (QUOTE (F FP)) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG131)
	(MOVE 1Q (SPECIAL FINDARG) S)
	(CALL 1Q (E EDITQF) S)
	(JRST 0Q TAG130)
 TAG131	(MOVEI 2Q (QUOTE (BF BFP)) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG132)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q (SPECIAL FINDARG) S)
	(PUSHJ P EDITBF)
	(JRST 0Q TAG130)
 TAG132	(CALL 1Q (E ERR) S)
 TAG130	(MOVE 5Q -1Q P)
	(CAIN 5Q (QUOTE FP) S)
	(JRST 0Q TAG136)
	(CAIE 5Q (QUOTE BFP) S)
	(JRST 0Q TAG135)
 TAG136	(MOVE 2Q (SPECIAL EDITPLEV) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P BPNT0)
 TAG135	(JRST 0Q TAG6)
 TAG123	(CAIE 5Q (QUOTE UP) S)
	(JRST 0Q TAG137)
	(PUSHJ P EDUP)
	(JRST 0Q TAG6)
 TAG137	(CAIE 5Q (QUOTE DELETE) S)
	(JRST 0Q TAG140)
	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE :) S)
	(CALL 3Q (E EDIT:) S)
	(JRST 0Q TAG6)
 TAG140	(CAIE 5Q (QUOTE NX) S)
	(JRST 0Q TAG141)
	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDIT*)
	(JRST 0Q TAG6)
 TAG141	(CAIE 5Q (QUOTE BK) S)
	(JRST 0Q TAG142)
	(MOVEI 1Q (QUOTE -1Q))
	(PUSHJ P EDIT*)
	(JRST 0Q TAG6)
 TAG142	(CAIE 5Q (QUOTE !NX) S)
	(JRST 0Q TAG143)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P 5Q)
 TAG2	(HRRZ@ 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG151)
	(HRRZ@ 5Q 5Q)
	(JUMPN 5Q TAG150)
 TAG151	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG147)
 TAG150	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q -1Q P)
	(JUMPE 1Q TAG2)
	(HRRZ@ 5Q 1Q)
	(JUMPE 5Q TAG2)
 TAG147	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE NX) S)
	(PUSHJ P EDITCOM)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 5Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(MOVEM 5Q (SPECIAL L) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG6)
 TAG143	(CAIE 5Q (QUOTE ??) S)
	(JRST 0Q TAG153)
	(MOVE 1Q (SPECIAL UNDOLST) S)
	(PUSHJ P EDITH)
	(JRST 0Q TAG6)
 TAG153	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q (SPECIAL EDITMACROS) S)
	(MOVE 1Q 5Q)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q 0Q P)
	(JUMPN 1Q TAG156)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q (SPECIAL USERMACROS) S)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q 0Q P)
	(JUMPN 1Q TAG156)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITDEFAULT)
	(JRST 0Q TAG3)
 TAG156	(HRRZ@ 1Q 0Q P)
	(CALL 1Q (E COPY) S)
	(PUSHJ P EDITCOMS)
 TAG6
 TAG4	(MOVEI 1Q (QUOTE NIL))
 TAG3	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITCOML SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL COPYFLG) S)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(HRRZ@ 1Q -3Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG12)
	(HRRZ@ 5Q -3Q P)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 1Q -3Q P)
	(HRRZ@ 1Q 1Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG14)
	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q -1Q P)
 TAG14
 TAG12	(MOVE 5Q (SPECIAL LCFLG) S)
	(JUMPE 5Q TAG16)
	(MOVEI 2Q (QUOTE (TO THRU THROUGH)) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG22)
	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(JUMPN 5Q TAG24)
	(MOVEI 5Q (QUOTE -1Q))
	(MOVEI 4Q (QUOTE THRU) S)
	(MOVEM 4Q 0Q P)
	(MOVEM 5Q -1Q P)
 TAG24	(JRST 0Q TAG21)
 TAG22	(JRST 0Q TAG16)
 TAG21	(MOVE 3Q 0Q P)
	(MOVE 2Q -1Q P)
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDITTO)
	(JRST 0Q TAG7)
 TAG16	(HLRZ@ 1Q -3Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG26)
	(HRRZ@ 2Q -3Q P)
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDIT2F)
	(JRST 0Q TAG7)
 TAG26	(MOVE 5Q 0Q P)
	(CAIE 5Q (QUOTE ::) S)
	(JRST 0Q TAG27)
	(HRRZ@ 2Q -3Q P)
	(HRRZ@ 2Q 2Q)
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDITCONT)
	(JRST 0Q TAG7)
 TAG27	(HLRZ@ 5Q -3Q P)
	(MOVEM 5Q (SPECIAL SELECTQ) S)
	(CAIE 5Q (QUOTE S) S)
	(JRST 0Q TAG31)
	(PUSH P 0Q P)
	(MOVE 2Q -1Q P)
	(JUMPN 2Q TAG33)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG32)
 TAG33	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(HRRZ@ 1Q -4Q P)
	(HRRZ@ 1Q 1Q)
	(PUSHJ P EDLOC)
	(PUSHJ P SPECSTR)
	(MOVE 2Q 1Q)
 TAG32	(POP P 1Q)
	(CALL 2Q (E SET) S)
	(JRST 0Q TAG30)
 TAG31	(CAIE 5Q (QUOTE R) S)
	(JRST 0Q TAG35)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E NCONS) S)
	(MOVEI 5Q (QUOTE NIL))
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(0Q 5Q (SPECIAL UNFIND) S)
	(MOVEI 2Q (QUOTE T) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDIT4F)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG37)
	(MOVE 5Q (SPECIAL UPFINDFLG) S)
	(JUMPE 5Q TAG37)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG37)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HLRZ@ 5Q 5Q)
	(JRST 0Q TAG36)
 TAG37	(HLRZ@ 5Q (SPECIAL L) S)
 TAG36	(PUSHJ P SPECSTR)
	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVE 2Q 5Q)
	(MOVE 1Q -1Q P)
	(MOVEM 5Q 0Q P)
	(CALL 3Q (E EDITDSUBST) S)
	(JRST 0Q TAG30)
 TAG35	(CAIE 5Q (QUOTE E) S)
	(JRST 0Q TAG45)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDVAL)
	(MOVEM 1Q -2Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG47)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG46)
 TAG47	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(JUMPN 5Q TAG50)
	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E %PRINFN) S)
 TAG50
 TAG46	(MOVE 1Q -2Q P)
	(JRST 0Q TAG6)
 TAG45	(CAIE 5Q (QUOTE I) S)
	(JRST 0Q TAG51)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG53)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG52)
 TAG53	(MOVE 1Q 0Q P)
	(CALL 1Q (E *EVAL) S)
 TAG52	(PUSH P 1Q)
	(HRRZ@ 1Q -4Q P)
	(HRRZ@ 1Q 1Q)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
 TAG2	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG61)
	(HLRZ@ 1Q 5Q)
	(HRRZ@ 5Q 5Q)
	(PUSH P 0Q P)
	(MOVEM 1Q -2Q P)
	(PUSH P 5Q)
	(MOVE 2Q (SPECIAL TOPFLG) S)
	(JUMPE 2Q TAG63)
	(CALL 1Q (E *EVAL) S)
	(MOVEM 1Q -3Q P)
	(CALL 1Q (E %PRINFN) S)
	(CALL 0Q (E TERPRI) S)
	(MOVE 2Q -3Q P)
	(JRST 0Q TAG62)
 TAG63	(CALL 1Q (E *EVAL) S)
	(MOVE 2Q 1Q)
 TAG62	(MOVE 1Q -1Q P)
	(CALL 2Q (E TCONC) S)
	(POP P -3Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG2)
 TAG61	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q -2Q P)
	(CALL 2Q (E CONS) S)
	(CLEARM 5Q (SPECIAL COPYFLG) S)
	(MOVEM 1Q -6Q P)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q TAG1)
 TAG51	(CAIE 5Q (QUOTE N) S)
	(JRST 0Q TAG65)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG67)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG67	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSH P 1Q)
	(MOVE 2Q (SPECIAL COPYFLG) S)
	(JUMPE 2Q TAG71)
	(HRRZ@ 1Q -4Q P)
	(CALL 1Q (E COPY) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG70)
 TAG71	(HRRZ@ 1Q -4Q P)
	(CALL 2Q (E *APPEND) S)
	(MOVE 2Q 1Q)
 TAG70	(POP P 1Q)
	(PUSHJ P EDITNCONC)
	(JRST 0Q TAG30)
 TAG65	(CAIE 5Q (QUOTE P) S)
	(JRST 0Q TAG73)
	(MOVE 5Q (SPECIAL LASTP1) S)
	(CAMN 5Q (SPECIAL L) S)
	(JRST 0Q TAG75)
	(MOVEM 5Q (SPECIAL LASTP2) S)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL LASTP1) S)
 TAG75	(HRRZ@ 1Q -3Q P)
	(PUSHJ P BPNT)
	(JRST 0Q TAG30)
 TAG73	(CAIE 5Q (QUOTE F) S)
	(JRST 0Q TAG76)
	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDIT4F)
	(JRST 0Q TAG30)
 TAG76	(CAIE 5Q (QUOTE FS) S)
	(JRST 0Q TAG77)
 TAG3	(HRRZ@ 5Q -3Q P)
	(MOVEM 5Q -3Q P)
	(JUMPE 5Q TAG104)
	(HLRZ@ 1Q 5Q)
	(MOVEM 1Q (SPECIAL COM) S)
	(CALL 1Q (E EDITQF) S)
	(JRST 0Q TAG3)
 TAG104	(JRST 0Q TAG30)
 TAG77	(CAIE 5Q (QUOTE F=) S)
	(JRST 0Q TAG105)
	(MOVE 2Q 0Q P)
	(MOVEI 1Q (QUOTE ==) S)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q -1Q P)
	(PUSHJ P EDIT4F)
	(JRST 0Q TAG30)
 TAG105	(CAIE 5Q (QUOTE ORF) S)
	(JRST 0Q TAG106)
	(HRRZ@ 2Q -3Q P)
	(MOVEI 1Q (QUOTE *ANY*) S)
	(CALL 2Q (E CONS) S)
	(MOVEI 2Q (QUOTE N) S)
	(PUSHJ P EDIT4F)
	(JRST 0Q TAG30)
 TAG106	(CAIE 5Q (QUOTE BF) S)
	(JRST 0Q TAG107)
	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITBF)
	(JRST 0Q TAG30)
 TAG107	(CAIE 5Q (QUOTE NTH) S)
	(JRST 0Q TAG110)
	(MOVE 2Q 0Q P)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P EDITNTH)
	(HLRZ@ 5Q (SPECIAL L) S)
	(MOVEM 1Q -2Q P)
	(CAMN 1Q 5Q)
	(JRST 0Q TAG112)
	(MOVE 2Q (SPECIAL L) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL L) S)
 TAG112	(JRST 0Q TAG30)
 TAG110	(CAIE 5Q (QUOTE IF) S)
	(JRST 0Q TAG113)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDVAL)
	(MOVEM 1Q -2Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG115)
	(HLRZ@ 5Q -2Q P)
	(JUMPE 5Q TAG115)
	(HRRZ@ 5Q -3Q P)
	(JUMPE 5Q TAG121)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITCOMS)
 TAG121	(JRST 0Q TAG114)
 TAG115	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG122)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG122)
	(HRRZ@ 1Q -3Q P)
	(CALL 1Q (E CADDR) S)
	(PUSHJ P EDITCOMS)
	(JRST 0Q TAG114)
 TAG122	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG114	(JRST 0Q TAG30)
 TAG113	(CAIE 5Q (QUOTE BI) S)
	(JRST 0Q TAG126)
	(PUSH P 0Q P)
	(HRRZ@ 2Q -4Q P)
	(HRRZ@ 2Q 2Q)
	(JUMPE 2Q TAG130)
	(MOVE 2Q -2Q P)
	(JRST 0Q TAG127)
 TAG130	(MOVE 2Q -1Q P)
 TAG127	(PUSH P 2Q)
	(HRRZ@ 3Q -5Q P)
	(JUMPE 3Q TAG133)
	(HLRZ@ 3Q (SPECIAL L) S)
 TAG133	(POP P 2Q)
	(POP P 1Q)
	(CALL 3Q (E BI) S)
	(JRST 0Q TAG30)
 TAG126	(CAIE 5Q (QUOTE RI) S)
	(JRST 0Q TAG134)
	(PUSH P -1Q P)
	(PUSH P -1Q P)
	(HRRZ@ 3Q -5Q P)
	(JUMPE 3Q TAG136)
	(HRRZ@ 3Q 3Q)
	(JUMPE 3Q TAG140)
	(HLRZ@ 3Q (SPECIAL L) S)
 TAG140
 TAG136	(MOVE 2Q -1Q P)
	(POP P 1Q)
	(CALL 3Q (E RI) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG30)
 TAG134	(MOVEI 2Q (QUOTE (RO LI LO BO)) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG141)
	(PUSH P 0Q P)
	(PUSH P -4Q P)
	(HLRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 2Q -5Q P)
	(JUMPE 2Q TAG143)
	(HLRZ@ 2Q (SPECIAL L) S)
 TAG143	(MOVE 1Q -1Q P)
	(CALLF@ 2Q 0Q P)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q TAG30)
 TAG141	(CAIE 5Q (QUOTE M) S)
	(JRST 0Q TAG144)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG146)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q (SPECIAL USERMACROS) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q -2Q P)
	(JUMPE 1Q TAG150)
	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(HRRM@ 5Q 1Q)
	(JRST 0Q TAG7)
 TAG150	(HRRZ@ 2Q -3Q P)
	(HRRZ@ 2Q 2Q)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E XCONS) S)
	(JRST 0Q TAG145)
 TAG146	(MOVEI 3Q (QUOTE T) S)
	(MOVE 2Q (SPECIAL USERMACROS) S)
	(HLRZ@ 1Q 0Q P)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q -2Q P)
	(JUMPE 1Q TAG154)
	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(HRLM@ 5Q 1Q)
	(HRRZ@ 5Q -3Q P)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(HRRM@ 5Q 1Q)
	(JRST 0Q TAG7)
 TAG154	(HLRZ@ 1Q 0Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q (SPECIAL EDITCOMSL) S)
	(CALL 2Q (E *NCONC) S)
	(HRRZ@ 2Q -3Q P)
	(HRRZ@ 2Q 2Q)
	(HLRZ@ 1Q 0Q P)
	(CALL 2Q (E CONS) S)
 TAG145	(MOVE 2Q (SPECIAL USERMACROS) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL USERMACROS) S)
	(JRST 0Q TAG30)
 TAG144	(CAIE 5Q (QUOTE NX) S)
	(JRST 0Q TAG156)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDIT*)
	(JRST 0Q TAG30)
 TAG156	(CAIE 5Q (QUOTE BK) S)
	(JRST 0Q TAG157)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E MINUS) S)
	(PUSHJ P EDIT*)
	(JRST 0Q TAG30)
 TAG157	(CAIE 5Q (QUOTE ORR) S)
	(JRST 0Q TAG160)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDOR)
	(JRST 0Q TAG30)
 TAG160	(CAIE 5Q (QUOTE MBD) S)
	(JRST 0Q TAG161)
	(HRRZ@ 2Q -3Q P)
	(CALL 2Q (E EDITMBD) S)
	(JRST 0Q TAG30)
 TAG161	(CAIE 5Q (QUOTE XTR) S)
	(JRST 0Q TAG162)
	(HRRZ@ 2Q -3Q P)
	(CALL 2Q (E EDITXTR) S)
	(JRST 0Q TAG30)
 TAG162	(MOVEI 2Q (QUOTE (THRU TO)) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG163)
	(HLRZ@ 3Q -3Q P)
	(MOVE 2Q 0Q P)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P EDITTO)
	(JRST 0Q TAG30)
 TAG163	(MOVEI 2Q (QUOTE (A B : AFTER BEFORE)) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG164)
	(HRRZ@ 3Q -3Q P)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q -3Q P)
	(CALL 3Q (E EDIT:) S)
	(JRST 0Q TAG30)
 TAG164	(CAIE 5Q (QUOTE MV) S)
	(JRST 0Q TAG165)
	(HRRZ@ 3Q -3Q P)
	(HRRZ@ 3Q 3Q)
	(HRRZ@ 2Q -3Q P)
	(HLRZ@ 2Q 2Q)
	(CALL 3Q (E EDITMV) S)
	(JRST 0Q TAG30)
 TAG165	(MOVEI 2Q (QUOTE (LP LPQ)) S)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG166)
	(HLRZ@ 5Q -3Q P)
	(CAIE 5Q (QUOTE LPQ) S)
	(TDZA 2Q 2Q)
	(MOVEI 2Q (QUOTE T) S)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDRPT)
	(JRST 0Q TAG30)
 TAG166	(CAIE 5Q (QUOTE LC) S)
	(JRST 0Q TAG167)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDLOC)
	(JRST 0Q TAG30)
 TAG167	(CAIE 5Q (QUOTE LCL) S)
	(JRST 0Q TAG170)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDLOCL)
	(JRST 0Q TAG30)
 TAG170	(CAIE 5Q (QUOTE ←) S)
	(JRST 0Q TAG171)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(MOVE 1Q 0Q P)
	(PUSH P 5Q)
	(CALL 1Q (E EDITFPAT) S)
	(MOVEM 1Q -1Q P)
 TAG4	(MOVE 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG200)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG200)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HLRZ@ 5Q 5Q)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG176)
	(JRST 0Q TAG177)
 TAG200	(HLRZ@ 5Q -1Q P)
	(CAIE 5Q (QUOTE IF) S)
	(JRST 0Q TAG203)
	(HRRZ@ 1Q -1Q P)
	(HLRZ@ 1Q 1Q)
	(PUSHJ P EDVAL)
	(MOVEM 1Q -3Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG205)
	(JRST 0Q TAG176)
	(JRST 0Q TAG204)
 TAG205	(MOVE 5Q -3Q P)
	(JUMPE 5Q TAG176)
 TAG204	(JRST 0Q TAG177)
 TAG203	(PUSH P -1Q P)
	(HLRZ@ 5Q -2Q P)
	(CAIE 5Q (QUOTE /@) S)
	(JRST 0Q TAG211)
	(HLRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(JRST 0Q TAG210)
 TAG211	(HLRZ@ 2Q (SPECIAL L) S)
 TAG210	(POP P 1Q)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG176)
 TAG177	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 5Q (SPECIAL L) S)
	(JRST 0Q TAG172)
 TAG176	(HRRZ@ 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JUMPN 5Q TAG4)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(MOVEI 5Q (QUOTE NIL))
 TAG172	(PUSHJ P SPECSTR)
	(MOVEM 5Q (SPECIAL L) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG30)
 TAG171	(CAIE 5Q (QUOTE BELOW) S)
	(JRST 0Q TAG213)
	(PUSH P 0Q P)
	(HRRZ@ 2Q -4Q P)
	(HRRZ@ 2Q 2Q)
	(JUMPE 2Q TAG215)
	(MOVE 2Q -2Q P)
	(JRST 0Q TAG214)
 TAG215	(MOVEI 2Q (QUOTE 1Q))
 TAG214	(POP P 1Q)
	(PUSHJ P EDITBELOW)
	(JRST 0Q TAG30)
 TAG213	(CAIE 5Q (QUOTE SW) S)
	(JRST 0Q TAG217)
	(HRRZ@ 2Q -3Q P)
	(HRRZ@ 2Q 2Q)
	(HLRZ@ 2Q 2Q)
	(HRRZ@ 1Q -3Q P)
	(HLRZ@ 1Q 1Q)
	(PUSHJ P EDITSW)
	(JRST 0Q TAG30)
 TAG217	(CAIE 5Q (QUOTE BIND) S)
	(JRST 0Q TAG220)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL #1) S)
	(0Q 0Q (SPECIAL #2) S)
	(0Q 0Q (SPECIAL #3) S)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDITCOMS)
	(PUSHJ P SPECSTR)
	(JRST 0Q TAG30)
 TAG220	(CAIE 5Q (QUOTE COMS) S)
	(JRST 0Q TAG224)
 TAG5	(HRRZ@ 5Q -3Q P)
	(MOVEM 5Q -3Q P)
	(JUMPE 5Q TAG231)
	(HLRZ@ 1Q 5Q)
	(CALL 1Q (E *EVAL) S)
	(MOVEM 1Q (SPECIAL COM) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P EDITCOM)
	(JRST 0Q TAG5)
 TAG231	(JRST 0Q TAG30)
 TAG224	(CAIE 5Q (QUOTE COMSQ) S)
	(JRST 0Q TAG232)
	(HRRZ@ 1Q -3Q P)
	(PUSHJ P EDITCOMS)
	(JRST 0Q TAG30)
 TAG232	(MOVEI 3Q (QUOTE T) S)
	(MOVE 2Q (SPECIAL EDITMACROS) S)
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q -2Q P)
	(JUMPN 1Q TAG235)
	(MOVEI 3Q (QUOTE T) S)
	(MOVE 2Q (SPECIAL USERMACROS) S)
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDITMAC)
	(MOVEM 1Q -2Q P)
	(JUMPN 1Q TAG235)
	(MOVE 1Q -3Q P)
	(PUSHJ P EDITDEFAULT)
	(JRST 0Q TAG6)
 TAG235	(HLRZ@ 1Q -2Q P)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG240)
	(HRRZ@ 3Q -2Q P)
	(HRRZ@ 2Q -3Q P)
	(MOVE 1Q -1Q P)
	(CALL 3Q (E SUBPAIR) S)
	(PUSHJ P EDITCOMS)
	(JRST 0Q TAG234)
 TAG240	(HRRZ@ 3Q -2Q P)
	(MOVE 2Q -1Q P)
	(HRRZ@ 1Q -3Q P)
	(CALL 3Q (E SUBST) S)
	(PUSHJ P EDITCOMS)
 TAG234
 TAG30
 TAG7	(MOVEI 1Q (QUOTE NIL))
 TAG6	(SUB P (C 4Q 0Q 4Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITMAC SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVE 5Q -3Q P)
	(JUMPE 5Q TAG3)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q 0Q P)
	(HLRZ@ 5Q 5Q)
	(CAME 5Q -4Q P)
	(JRST 0Q TAG6)
	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q -1Q P)
	(MOVE 4Q -2Q P)
	(JUMPE 4Q TAG12)
	(HLRZ@ 4Q 5Q)
	(JUMPE 4Q TAG10)
	(JRST 0Q TAG11)
 TAG12	(HLRZ@ 4Q 5Q)
	(JUMPN 4Q TAG10)
 TAG11	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG10
 TAG6	(HRRZ@ 5Q -3Q P)
	(MOVEM 5Q -3Q P)
	(JRST 0Q TAG1)
 TAG3	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP EDITCOMS SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL COMS) S)
 TAG1	(MOVE 1Q (SPECIAL COMS) S)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(HLRZ@ 1Q (SPECIAL L) S)
	(JRST 0Q TAG2)
 TAG6	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL COMS) S)
	(PUSHJ P EDITCOM)
	(HRRZ@ 5Q (SPECIAL COMS) S)
	(MOVEM 5Q (SPECIAL COMS) S)
	(JRST 0Q TAG1)
 TAG2	(JRST 0Q SPECSTR)
	NIL

(LAP EDITH SUBR)
	(PUSH P 1Q)
 TAG1	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG5)
	(HLRZ@ 5Q 5Q)
	(JUMPN 5Q TAG10)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE BLOCK) S)
	(CALL 2Q (E PRINA) S)
	(JRST 0Q TAG2)
 TAG10	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG3)
	(MOVE 1Q 5Q)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG11)
	(MOVEI 1Q (QUOTE --) S)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 5Q)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE NIL))
	(CALL 2Q (E PRINA) S)
	(JRST 0Q TAG2)
 TAG11	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q 0Q P)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E PRINA) S)
 TAG2	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 2Q (E SPACES) S)
 TAG3	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG5	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT!UNDO SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(PUSH P (SPECIAL UNDOLST) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG3)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG3)
	(MOVE 5Q -2Q P)
	(JUMPN 5Q TAG12)
	(HLRZ@ 1Q -1Q P)
	(HLRZ@ 1Q 1Q)
	(MOVEM 1Q (SPECIAL SELECTQ) S)
	(MOVEI 2Q (QUOTE (NIL !UNDO UNBLOCK)) S)
	(CALL 2Q (E MEMQ) S)
	(JUMPN 1Q TAG2)
	(MOVE 5Q (SPECIAL SELECTQ) S)
	(CAIE 5Q (QUOTE UNDO) S)
	(JRST 0Q TAG14)
	(MOVE 5Q -3Q P)
	(JUMPE 5Q TAG2)
	(JRST 0Q TAG13)
 TAG14
 TAG13	(JRST 0Q TAG11)
 TAG12	(HLRZ@ 5Q -1Q P)
	(HLRZ@ 5Q 5Q)
	(CAME 5Q -2Q P)
	(JRST 0Q TAG2)
 TAG11	(MOVE 2Q -4Q P)
	(HLRZ@ 1Q -1Q P)
	(PUSHJ P UNDOEDITCOM)
	(MOVE 5Q -3Q P)
	(JUMPE 5Q TAG5)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q 0Q P)
 TAG2	(HRRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG1)
 TAG3	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG5)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG21)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG21)
	(MOVEI 1Q (QUOTE "Blocked") S)
	(CALL 1Q (E PRINC) S)
	(JRST 0Q TAG20)
 TAG21	(MOVEI 1Q (QUOTE "Nothing Saved") S)
	(CALL 1Q (E PRINC) S)
 TAG20
 TAG5	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP UNDOEDITCOM SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG5)
 TAG6	(MOVE 1Q (SPECIAL L) S)
	(CALL 1Q (E LAST) S)
	(PUSH P 1Q)
	(HRRZ@ 1Q -3Q P)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E LAST) S)
	(HLRZ@ 5Q 1Q)
	(PUSH P 5Q)
	(HLRZ@ 5Q -1Q P)
	(POP P 4Q)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(CAMN 5Q 4Q)
	(JRST 0Q TAG7)
	(MOVEI 1Q (QUOTE "Different expression") S)
	(CALL 1Q (E PRINC) S)
	(CLEARM 5Q (SPECIAL COM) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG7
 TAG5	(HLRZ@ 5Q -2Q P)
	(HRRZ@ 4Q -2Q P)
	(HLRZ@ 4Q 4Q)
	(MOVEM 4Q (SPECIAL L) S)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 5Q -2Q P)
	(PUSH P 5Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(HRRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JUMPE 5Q TAG14)
	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q 0Q P)
	(HLRZ@ 5Q 5Q)
	(CAIE 5Q (QUOTE R) S)
	(JRST 0Q TAG16)
	(HRRZ@ 1Q 0Q P)
	(CALL 1Q (E CADDR) S)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(HRRZ@ 1Q 0Q P)
	(CALL 1Q (E CADR) S)
	(CALL 1Q (E NCONS) S)
	(HRRZ@ 2Q 0Q P)
	(HLRZ@ 2Q 2Q)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE R) S)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P EDITCOM)
	(PUSHJ P SPECSTR)
	(JRST 0Q TAG15)
 TAG16	(HRRZ@ 3Q 0Q P)
	(HRRZ@ 3Q 3Q)
	(HRRZ@ 2Q 0Q P)
	(HLRZ@ 2Q 2Q)
	(MOVE 1Q 5Q)
	(PUSHJ P EDITSMASH)
 TAG15	(JRST 0Q TAG1)
 TAG14	(SUB P (C 2Q 0Q 2Q 0Q))
	(HRRZ@ 2Q -2Q P)
	(HLRZ@ 1Q -2Q P)
	(CALL 2Q (E CONS) S)
	(MOVE 3Q 1Q)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -2Q P)
	(PUSHJ P EDITSMASH)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG21)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG25)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG24)
 TAG25	(MOVEI 2Q (QUOTE (--)) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E CONS) S)
 TAG24	(CALL 1Q (E PRIN1) S)
	(JUMPE 1Q TAG23)
	(MOVEI 1Q (QUOTE " Undone") S)
	(CALL 1Q (E PRINC) S)
	(JUMPE 1Q TAG30)
	(CALL 0Q (E TERPRI) S)
 TAG30
 TAG23
 TAG21	(MOVEI 1Q (QUOTE T) S)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDITSMASH SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG2	(HRRZ@ 2Q -2Q P)
	(HLRZ@ 1Q -2Q P)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q -2Q P)
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q (SPECIAL UNDOLST1) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL UNDOLST1) S)
	(EXCH 5Q -1Q P)
	(HRLM@ 5Q -2Q P)
	(POP P 5Q)
	(HRRM@ 5Q -1Q P)
	(EXCH 1Q -1Q P)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDITNCONC SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 1Q TAG5)
	(MOVE 1Q 2Q)
	(JRST 0Q TAG4)
 TAG5	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG4)
 TAG6	(MOVE 1Q -2Q P)
	(CALL 1Q (E LAST) S)
	(MOVE 3Q -1Q P)
	(HLRZ@ 2Q 1Q)
	(MOVEM 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(MOVE 1Q -2Q P)
 TAG4	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDITDSUBST SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
 TAG1	(MOVE 1Q 0Q P)
	(CALL 1Q (E PATOM) S)
	(JUMPN 1Q TAG3)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG10)
	(HLRZ@ 5Q 0Q P)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG6)
	(JRST 0Q TAG7)
 TAG10	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E EQUAL) S)
	(JUMPE 1Q TAG6)
 TAG7	(MOVE 1Q -2Q P)
	(CALL 1Q (E COPY) S)
	(HRRZ@ 3Q 0Q P)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(JRST 0Q TAG5)
 TAG6	(HLRZ@ 3Q 0Q P)
	(MOVE 2Q -1Q P)
	(MOVE 1Q -2Q P)
	(CALL 3Q (E EDITDSUBST) S)
 TAG5	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG14)
	(HRRZ@ 5Q 0Q P)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG14)
	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q -2Q P)
	(PUSH P 2Q)
	(CALL 1Q (E COPY) S)
	(MOVE 3Q 1Q)
	(POP P 2Q)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(JRST 0Q TAG3)
 TAG14	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT1F SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL L) S)
	(PUSH P 1Q)
	(CAIE 1Q (QUOTE 0Q))
	(JRST 0Q TAG2)
	(HRRZ@ 1Q 2Q)
	(JUMPN 1Q TAG4)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG3)
 TAG4
 TAG3	(JRST 0Q TAG1)
 TAG2	(HLRZ@ 1Q 2Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG6	(MOVEI 2Q (QUOTE 0Q))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG7)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E LENGTH) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG11)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG10)
 TAG11	(MOVE 2Q 0Q P)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E NTH) S)
	(MOVEM 1Q (SPECIAL LASTAIL) S)
	(MOVE 2Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E CONS) S)
 TAG10	(JRST 0Q TAG1)
 TAG7	(MOVE 1Q 0Q P)
	(CALL 1Q (E MINUS) S)
	(PUSH P 1Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E LENGTH) S)
	(POP P 2Q)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG13)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG13	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E LENGTH) S)
	(PUSH P 1Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSH P 1Q)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E ADD1) S)
	(MOVE 2Q -1Q P)
	(CALL 2Q (E *PLUS) S)
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(CALL 2Q (E NTH) S)
	(MOVEM 1Q (SPECIAL LASTAIL) S)
	(MOVE 2Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E CONS) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDIT2F SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(HLRZ@ 5Q (SPECIAL L) S)
	(PUSH P 5Q)
	(MOVE 1Q 5Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG7)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG6)
 TAG7	(MOVE 4Q (SPECIAL COPYFLG) S)
	(JUMPE 4Q TAG10)
	(MOVE 1Q 2Q)
	(CALL 1Q (E COPY) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG6)
 TAG10	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *APPEND) S)
	(MOVEM 1Q -1Q P)
 TAG6	(MOVEI 2Q (QUOTE 0Q))
	(MOVE 1Q -2Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG13)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E LENGTH) S)
	(MOVE 2Q -2Q P)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG15)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG14)
 TAG15	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG1)
	(JRST 0Q TAG2)
 TAG14	(JRST 0Q TAG12)
 TAG13	(MOVE 5Q -2Q P)
	(CAIN 5Q (QUOTE 0Q))
	(JRST 0Q TAG17)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG17)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E MINUS) S)
	(PUSH P 1Q)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E LENGTH) S)
	(POP P 2Q)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG16)
 TAG17	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG12)
 TAG16	(MOVE 5Q -2Q P)
	(CAIN 5Q (QUOTE -1Q))
	(JRST 0Q TAG22)
	(MOVE 1Q 5Q)
	(CALL 1Q (E MINUS) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E NTH) S)
	(MOVEM 1Q 0Q P)
 TAG22	(HRRZ@ 2Q 0Q P)
	(HLRZ@ 1Q 0Q P)
	(CALL 2Q (E CONS) S)
	(MOVE 3Q 1Q)
	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(HRRZ@ 5Q -1Q P)
	(JUMPE 5Q TAG24)
	(HRRZ@ 2Q 0Q P)
	(MOVE 1Q 5Q)
	(CALL 2Q (E *NCONC) S)
	(MOVE 3Q 1Q)
	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
 TAG24	(JRST 0Q TAG4)
 TAG12
 TAG1	(MOVE 5Q -2Q P)
	(CAIE 5Q (QUOTE 1Q))
	(JRST 0Q TAG26)
	(HRRZ@ 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPN 1Q TAG27)
	(CALL 1Q (E ERR) S)
 TAG27	(HRRZ@ 3Q 0Q P)
	(HRRZ@ 3Q 3Q)
	(HRRZ@ 2Q 0Q P)
	(HLRZ@ 2Q 2Q)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(JRST 0Q TAG25)
 TAG26	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E NTH) S)
	(HRRZ@ 3Q 1Q)
	(HRRZ@ 3Q 3Q)
	(HLRZ@ 2Q 1Q)
	(MOVEM 1Q 0Q P)
	(PUSHJ P EDITSMASH)
 TAG25	(JRST 0Q TAG4)
 TAG2	(MOVE 5Q -2Q P)
	(CAIN 5Q (QUOTE 1Q))
	(JRST 0Q TAG32)
	(MOVE 2Q 5Q)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E NTH) S)
	(MOVEM 1Q 0Q P)
 TAG32	(HRRZ@ 3Q 0Q P)
	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(HRRZ@ 5Q -1Q P)
	(JUMPE 5Q TAG34)
	(HRRZ@ 2Q 0Q P)
	(MOVE 1Q 5Q)
	(CALL 2Q (E *NCONC) S)
	(MOVE 3Q 1Q)
	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
 TAG34
 TAG4	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT4E SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(CAME 1Q 2Q)
	(JRST 0Q TAG5)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG4)
 TAG5	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(MOVE 5Q -1Q P)
	(CAIE 5Q (QUOTE &) S)
	(TDZA 1Q 1Q)
	(MOVEI 1Q (QUOTE T) S)
	(JUMPN 1Q TAG10)
	(MOVE 1Q 5Q)
	(CALL 2Q (E EQUAL) S)
 TAG10	(JUMPN 1Q TAG7)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG11)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E STRINGP) S)
	(JUMPN 1Q TAG14)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG11)
 TAG14	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E EQSTR) S)
	(JRST 0Q TAG7)
 TAG11	(MOVEI 1Q (QUOTE NIL))
 TAG7	(JRST 0Q TAG4)
 TAG6	(HLRZ@ 5Q -1Q P)
	(CAIE 5Q (QUOTE *ANY*) S)
	(JRST 0Q TAG15)
 TAG1	(HRRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JUMPE 5Q TAG17)
	(MOVE 2Q 0Q P)
	(HLRZ@ 1Q 5Q)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG22)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG16)
 TAG22	(JRST 0Q TAG1)
 TAG17	(MOVEI 1Q (QUOTE NIL))
 TAG16	(JRST 0Q TAG4)
 TAG15	(CAIE 5Q (QUOTE /@) S)
	(JRST 0Q TAG23)
	(MOVE 1Q 2Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG23)
	(HRRZ@ 5Q -1Q P)
	(MOVE 1Q 0Q P)
	(MOVEM 5Q -1Q P)
	(CALL 1Q (E EXPLODEC) S)
	(PUSH P 1Q)
 TAG2	(HLRZ@ 5Q -2Q P)
	(CAIE 5Q (QUOTE /@) S)
	(JRST 0Q TAG32)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E FREELIST) S)
	(MOVEI 1Q (QUOTE "= ") S)
	(CALL 1Q (E PRINC) S)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E PRIN1) S)
	(CALL 0Q (E TERPRI) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG26)
 TAG32	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG27)
	(HLRZ@ 5Q 5Q)
	(PUSH P 5Q)
	(HLRZ@ 5Q -3Q P)
	(POP P 4Q)
	(CAMN 5Q 4Q)
	(JRST 0Q TAG33)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E FREELIST) S)
	(JRST 0Q TAG27)
 TAG33	(HRRZ@ 5Q -2Q P)
	(HRRZ@ 4Q 0Q P)
	(MOVEM 4Q 0Q P)
	(MOVEM 5Q -2Q P)
	(JRST 0Q TAG2)
 TAG27	(MOVEI 1Q (QUOTE NIL))
 TAG26	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG4)
 TAG23	(HLRZ@ 5Q -1Q P)
	(CAIE 5Q (QUOTE --) S)
	(JRST 0Q TAG34)
	(HRRZ@ 1Q -1Q P)
	(MOVEM 1Q -1Q P)
	(JUMPE 1Q TAG36)
	(TDZA 1Q 1Q)
 TAG36	(MOVEI 1Q (QUOTE T) S)
	(JUMPN 1Q TAG35)
 TAG3	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG43)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG37)
 TAG43	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG40)
	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG3)
 TAG40	(MOVEI 1Q (QUOTE NIL))
 TAG37
 TAG35	(JRST 0Q TAG4)
 TAG34	(CAIE 5Q (QUOTE ==) S)
	(JRST 0Q TAG44)
	(HRRZ@ 5Q -1Q P)
	(CAME 5Q 0Q P)
	(TDZA 1Q 1Q)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG4)
 TAG44	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG45)
	(MOVEI 1Q (QUOTE NIL))
	(JRST 0Q TAG4)
 TAG45	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q 5Q)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG46)
	(HRRZ@ 2Q 0Q P)
	(HRRZ@ 1Q -1Q P)
	(CALL 2Q (E EDIT4E) S)
 TAG46
 TAG4	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDITQF SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG5)
	(HLRZ@ 1Q (SPECIAL L) S)
	(HRRZ@ 1Q 1Q)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG5)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG5)
	(MOVE 1Q (SPECIAL UPFINDFLG) S)
	(JUMPE 1Q TAG13)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG12)
 TAG13	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL LASTAIL) S)
	(HLRZ@ 1Q 0Q P)
 TAG12	(MOVE 2Q (SPECIAL L) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q TAG4)
 TAG5	(MOVEI 2Q (QUOTE N) S)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDIT4F)
 TAG4	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT4F SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL SN) S)
	(0Q 0Q (SPECIAL FF) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q (SPECIAL FF) S)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL COM) S)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E EDITFPAT) S)
	(PUSH P (SPECIAL L) S)
	(MOVEM 1Q -1Q P)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 5Q (SPECIAL SN) S)
	(CAIE 5Q (QUOTE N) S)
	(JRST 0Q TAG7)
	(MOVEI 5Q (QUOTE 1Q))
	(MOVEM 5Q (SPECIAL SN) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG2)
	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG11)
	(MOVE 5Q (SPECIAL UPFINDFLG) S)
	(JUMPE 5Q TAG11)
	(MOVE 2Q (SPECIAL L) S)
	(HLRZ@ 1Q 2Q)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG11	(MOVE 2Q (SPECIAL L) S)
	(HLRZ@ 1Q 2Q)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q -1Q P)
 TAG7	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG16)
	(MOVE 1Q 5Q)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG16)
	(MOVEI 5Q (QUOTE 1Q))
	(MOVEM 5Q (SPECIAL SN) S)
 TAG16	(MOVE 1Q -2Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG26)
	(HLRZ@ 5Q -2Q P)
	(CAIE 5Q (QUOTE :::) S)
	(JRST 0Q TAG26)
	(HRRZ@ 1Q -2Q P)
	(JRST 0Q TAG25)
 TAG26	(MOVE 1Q -2Q P)
 TAG25	(HLRZ@ 2Q -1Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG22)
	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG32)
	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q (SPECIAL SN) S)
	(CAIE 1Q (QUOTE 0Q))
	(JRST 0Q TAG22)
 TAG32	(MOVE 1Q -1Q P)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q TAG3)
 TAG22	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q 0Q P)
 TAG1	(MOVE 3Q (SPECIAL MAXLEVEL) S)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -2Q P)
	(PUSHJ P EDIT4F1)
	(JUMPE 1Q TAG34)
	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG36)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
 TAG36	(HLRZ@ 1Q (SPECIAL FF) S)
	(PUSH P 1Q)
	(HLRZ@ 5Q -2Q P)
	(PUSH P 5Q)
	(HRRZ@ 5Q (SPECIAL FF) S)
	(HLRZ@ 5Q 5Q)
	(POP P 4Q)
	(CAME 5Q 4Q)
	(JRST 0Q TAG40)
	(HRRZ@ 2Q -2Q P)
	(JRST 0Q TAG37)
 TAG40	(MOVE 2Q -2Q P)
 TAG37	(POP P 1Q)
	(CALL 2Q (E *NCONC) S)
	(MOVEM 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(JRST 0Q TAG3)
 TAG34	(MOVE 5Q (SPECIAL SN) S)
	(JUMPN 5Q TAG42)
	(CALL 1Q (E ERR) S)
 TAG42
 TAG2	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 4Q -1Q P)
	(MOVEM 4Q -1Q P)
	(JUMPN 4Q TAG44)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG43)
 TAG44	(HLRZ@ 2Q 4Q)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG46)
	(HRRZ@ 1Q 1Q)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPN 1Q TAG1)
 TAG46
 TAG43	(JRST 0Q TAG2)
 TAG3	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITFPAT SUBR)
	(PUSH P 1Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG2)
	(HLRZ@ 5Q 0Q P)
	(CAIN 5Q (QUOTE ==) S)
	(JRST 0Q TAG5)
	(CAIE 5Q (QUOTE /@) S)
	(JRST 0Q TAG4)
 TAG5	(MOVE 1Q 0Q P)
	(JRST 0Q TAG3)
 TAG4	(PUSH P (C 0Q 0Q TAG7 0Q))
	(MOVEI D (QUOTE EDITFPAT) S)
	(PUSH P D)
	(PUSH P -2Q P)
	(MOVNI 6Q 2Q)
	(JCALL 16Q (E MAPCAR) S)
 TAG7
 TAG3	(JRST 0Q TAG1)
 TAG2	(MOVEI 2Q (QUOTE -1Q))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E ANTHCHAR) S)
	(CAIE 1Q (QUOTE 100Q))
	(JRST 0Q TAG10)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E EXPLODEC) S)
	(MOVEI 2Q (QUOTE /@) S)
	(CALL 2Q (E XCONS) S)
	(JRST 0Q TAG1)
 TAG10	(MOVE 1Q 0Q P)
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT4F1 SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
 TAG1	(MOVEI 2Q (QUOTE 0Q))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPN 1Q TAG6)
	(MOVEI 1Q (QUOTE "MAXLEVEL Exceeded") S)
	(CALL 1Q (E PRINC) S)
	(CALL 0Q (E TERPRI) S)
	(JRST 0Q TAG3)
 TAG6	(MOVE 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG3)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG10)
	(HLRZ@ 5Q -2Q P)
	(CAIE 5Q (QUOTE :::) S)
	(JRST 0Q TAG12)
	(MOVE 2Q -1Q P)
	(HRRZ@ 1Q -2Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG14)
	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG5)
	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q (SPECIAL SN) S)
	(CAIN 1Q (QUOTE 0Q))
	(JRST 0Q TAG5)
 TAG14
 TAG12
 TAG10	(MOVE 1Q -2Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG21)
	(HLRZ@ 5Q -2Q P)
	(CAIN 5Q (QUOTE :::) S)
	(JRST 0Q TAG16)
 TAG21	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q -2Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG16)
	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG24)
	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q (SPECIAL SN) S)
	(CAIE 1Q (QUOTE 0Q))
	(JRST 0Q TAG16)
 TAG24	(MOVE 5Q (SPECIAL UPFINDFLG) S)
	(JUMPE 5Q TAG27)
	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG26)
 TAG27	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL LASTAIL) S)
	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
 TAG26	(JRST 0Q TAG5)
 TAG16	(MOVE 5Q -2Q P)
	(JUMPE 5Q TAG30)
	(HRRZ@ 5Q -1Q P)
	(CAME 5Q -2Q P)
	(JRST 0Q TAG30)
	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG35)
	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q (SPECIAL SN) S)
	(CAIE 1Q (QUOTE 0Q))
	(JRST 0Q TAG30)
 TAG35	(HRRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG5)
 TAG30	(MOVE 5Q (SPECIAL SN) S)
	(JUMPE 5Q TAG36)
	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG36)
	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(PUSH P 2Q)
	(CALL 1Q (E SUB1) S)
	(MOVE 3Q 1Q)
	(POP P 2Q)
	(MOVE 1Q -2Q P)
	(PUSHJ P EDIT4F1)
	(JUMPE 1Q TAG36)
	(MOVE 5Q (SPECIAL SN) S)
	(CAIE 5Q (QUOTE 0Q))
	(JRST 0Q TAG36)
	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG5)
 TAG36	(HRRZ@ 5Q -1Q P)
	(MOVE 1Q 0Q P)
	(MOVEM 5Q -1Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG5	(MOVE 5Q (SPECIAL FF) S)
	(JUMPE 5Q TAG47)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(CAMN 5Q -1Q P)
	(JRST 0Q TAG47)
	(MOVE 2Q -1Q P)
	(MOVE 1Q (SPECIAL FF) S)
	(CALL 2Q (E TCONC) S)
 TAG47	(MOVE 1Q (SPECIAL FF) S)
	(JUMPN 1Q TAG52)
	(MOVEI 1Q (QUOTE T) S)
 TAG52	(JRST 0Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDITFINDP SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL SN) S)
	(0Q 0Q (SPECIAL LASTAIL) S)
	(0Q 0Q (SPECIAL FF) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(MOVEI 5Q (QUOTE 1Q))
	(MOVEM 5Q (SPECIAL SN) S)
	(JUMPN 3Q TAG5)
	(MOVE 1Q 2Q)
	(CALL 1Q (E EDITFPAT) S)
	(MOVEM 1Q -1Q P)
 TAG5	(MOVE 2Q -2Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPN 1Q TAG6)
	(MOVE 3Q (SPECIAL MAXLEVEL) S)
	(MOVE 2Q -2Q P)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDIT4F1)
 TAG6	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITBF SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL FF) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (SPECIAL L) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q (SPECIAL FF) S)
	(MOVE 5Q -2Q P)
	(MOVEM 5Q (SPECIAL COM) S)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E EDITFPAT) S)
	(MOVEM 1Q -2Q P)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 5Q -3Q P)
	(JUMPN 5Q TAG10)
	(HRRZ@ 5Q -2Q P)
	(JUMPN 5Q TAG2)
 TAG10
 TAG1	(MOVE 4Q -1Q P)
	(MOVE 3Q (SPECIAL MAXLEVEL) S)
	(HLRZ@ 2Q -2Q P)
	(MOVE 1Q -4Q P)
	(PUSHJ P EDITBF1)
	(JUMPE 1Q TAG12)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(HLRZ@ 1Q (SPECIAL FF) S)
	(PUSH P 1Q)
	(HRRZ@ 5Q (SPECIAL FF) S)
	(HLRZ@ 5Q 5Q)
	(PUSH P 5Q)
	(HLRZ@ 5Q -4Q P)
	(POP P 4Q)
	(CAME 5Q 4Q)
	(JRST 0Q TAG14)
	(HRRZ@ 2Q -3Q P)
	(JRST 0Q TAG13)
 TAG14	(MOVE 2Q -3Q P)
 TAG13	(POP P 1Q)
	(CALL 2Q (E *NCONC) S)
	(MOVEM 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(JRST 0Q TAG3)
 TAG12
 TAG2	(HLRZ@ 5Q -2Q P)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 4Q -2Q P)
	(MOVEM 4Q -2Q P)
	(JUMPN 4Q TAG17)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG16)
 TAG17	(HLRZ@ 2Q 4Q)
	(MOVE 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG1)
	(HLRZ@ 2Q 4Q)
	(MOVE 1Q 5Q)
	(CALL 2Q (E TAILP) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG1)
 TAG16	(JRST 0Q TAG2)
 TAG3	(SUB P (C 5Q 0Q 5Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITBF1 SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(PUSH P 4Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVEI 2Q (QUOTE 0Q))
	(MOVE 1Q -2Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPN 1Q TAG7)
	(MOVEI 1Q (QUOTE "MAXLEVEL Exceeded") S)
	(CALL 1Q (E PRINC) S)
	(CALL 0Q (E TERPRI) S)
	(JRST 0Q TAG4)
 TAG7	(MOVE 5Q -1Q P)
	(CAME 5Q -3Q P)
	(JRST 0Q TAG10)
	(MOVE 1Q -4Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG14)
	(HLRZ@ 5Q -4Q P)
	(CAIE 5Q (QUOTE :::) S)
	(JRST 0Q TAG14)
	(HRRZ@ 1Q -4Q P)
	(JRST 0Q TAG13)
 TAG14	(MOVE 1Q -4Q P)
 TAG13	(MOVE 2Q -3Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG12)
	(MOVE 2Q -3Q P)
	(MOVE 1Q (SPECIAL FF) S)
	(CALL 2Q (E TCONC) S)
 TAG12	(JRST 0Q TAG3)
 TAG10	(MOVE 5Q -3Q P)
	(MOVEM 5Q 0Q P)
 TAG2	(HRRZ@ 5Q 0Q P)
	(CAMN 5Q -1Q P)
	(JRST 0Q TAG21)
	(MOVE 1Q 5Q)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG21)
	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG2)
 TAG21	(MOVE 5Q 0Q P)
	(MOVEM 5Q -1Q P)
	(HLRZ@ 1Q 5Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG24)
	(HLRZ@ 2Q 5Q)
	(MOVE 1Q -2Q P)
	(PUSH P 2Q)
	(CALL 1Q (E SUB1) S)
	(MOVEI 4Q (QUOTE NIL))
	(MOVE 3Q 1Q)
	(POP P 2Q)
	(MOVE 1Q -4Q P)
	(PUSHJ P EDITBF1)
	(JUMPE 1Q TAG24)
	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG23)
 TAG24	(HLRZ@ 5Q -4Q P)
	(CAIE 5Q (QUOTE :::) S)
	(JRST 0Q TAG30)
	(MOVE 2Q -1Q P)
	(HRRZ@ 1Q -4Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPN 1Q TAG23)
 TAG30	(MOVE 1Q -4Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG34)
	(HLRZ@ 5Q -4Q P)
	(CAIN 5Q (QUOTE :::) S)
	(JRST 0Q TAG31)
 TAG34	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q -4Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG31)
	(MOVE 5Q (SPECIAL UPFINDFLG) S)
	(JUMPE 5Q TAG37)
	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG36)
 TAG37	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL LASTAIL) S)
	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
 TAG36	(JRST 0Q TAG23)
 TAG31	(MOVE 4Q -4Q P)
	(JUMPE 4Q TAG40)
	(HRRZ@ 5Q -1Q P)
	(CAME 4Q 5Q)
	(JRST 0Q TAG40)
	(HRRZ@ 5Q -3Q P)
	(MOVEM 5Q -3Q P)
	(JRST 0Q TAG23)
 TAG40	(MOVE 1Q -2Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -2Q P)
	(JRST 0Q TAG1)
 TAG23	(HRRZ@ 5Q (SPECIAL FF) S)
	(HLRZ@ 5Q 5Q)
	(CAMN 5Q -1Q P)
	(JRST 0Q TAG45)
	(MOVE 2Q -1Q P)
	(MOVE 1Q (SPECIAL FF) S)
	(CALL 2Q (E TCONC) S)
 TAG45	(MOVE 1Q (SPECIAL FF) S)
	(JRST 0Q TAG3)
 TAG4	(MOVEI 1Q (QUOTE NIL))
 TAG3	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP EDITNTH SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q 2Q)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG3)
	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPN 1Q TAG4)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITELT)
	(MOVE 2Q -1Q P)
	(MOVEM 1Q 0Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPN 1Q TAG4)
	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E TAILP) S)
 TAG4	(JRST 0Q TAG1)
 TAG3	(MOVE 5Q 0Q P)
	(CAIE 5Q (QUOTE 0Q))
	(JRST 0Q TAG5)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG5	(MOVE 1Q 5Q)
	(CALL 1Q (E MINUSP) S)
	(JUMPE 1Q TAG11)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E LENGTH) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E *PLUS) S)
	(MOVEI 2Q (QUOTE 1Q))
	(CALL 2Q (E *PLUS) S)
	(MOVEI 2Q (QUOTE 0Q))
	(MOVEM 1Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG10)
 TAG11	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E NTH) S)
	(JRST 0Q TAG7)
 TAG10	(MOVEI 1Q (QUOTE NIL))
 TAG7	(MOVEM 1Q 0Q P)
	(JUMPN 1Q TAG6)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG1)
 TAG6
 TAG1	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP BPNT0 SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(MOVE 5Q (SPECIAL LASTP1) S)
	(CAMN 5Q (SPECIAL L) S)
	(JRST 0Q TAG2)
	(MOVEM 5Q (SPECIAL LASTP2) S)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL LASTP1) S)
 TAG2	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 1Q 0Q P)
	(JUMPE 1Q TAG4)
	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E TAILP) S)
	(MOVEM 1Q (SPECIAL $%DOTFLG) S)
	(CLEARM 5Q (SPECIAL %PREVFN%) S)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E PRINLEV) S)
	(JRST 0Q TAG3)
 TAG4	(CALL 0Q (E TERPRI) S)
	(MOVEI 2Q (QUOTE 1Q))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E SPRINT) S)
 TAG3	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP BPNT SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(HLRZ@ 5Q 1Q)
	(CAIE 5Q (QUOTE 0Q))
	(JRST 0Q TAG5)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(MOVEM 5Q 0Q P)
	(CALL 2Q (E TAILP) S)
	(MOVEM 1Q (SPECIAL $%DOTFLG) S)
	(JRST 0Q TAG4)
 TAG5	(MOVE 2Q 5Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P EDITNTH)
	(HLRZ@ 5Q 1Q)
	(MOVEM 5Q 0Q P)
 TAG4	(HRRZ@ 5Q -2Q P)
	(JUMPN 5Q TAG10)
	(MOVEI 5Q (QUOTE 2Q))
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG7)
 TAG10	(HLRZ@ 1Q 5Q)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG11)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG7)
 TAG11	(MOVE 1Q -1Q P)
	(CALL 1Q (E MINUSP) S)
	(JUMPE 1Q TAG12)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG12
 TAG7	(CLEARM 5Q (SPECIAL %PREVFN%) S)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(JCALL 2Q (E PRINLEV) S)
	NIL

(LAP RI SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(EXCH 2Q 1Q)
	(MOVE 1Q 3Q)
	(PUSHJ P EDITNTH)
	(MOVE 2Q -1Q P)
	(PUSH P 1Q)
	(HLRZ@ 1Q 1Q)
	(PUSHJ P EDITNTH)
	(PUSH P 1Q)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG6)
	(JUMPN 1Q TAG5)
 TAG6	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG5	(HLRZ@ 2Q -1Q P)
	(PUSH P 2Q)
	(HRRZ@ 2Q -2Q P)
	(HRRZ@ 1Q -1Q P)
	(PUSHJ P EDITNCONC)
	(MOVE 3Q 1Q)
	(POP P 2Q)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITSMASH)
	(MOVEI 3Q (QUOTE NIL))
	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDITSMASH)
	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP RO SUBR)
	(PUSH P 2Q)
	(MOVE 2Q 1Q)
	(PUSH P 1Q)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITNTH)
	(MOVEM 1Q -1Q P)
	(JUMPE 1Q TAG3)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG2	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E LAST) S)
	(HRRZ@ 3Q -1Q P)
	(HLRZ@ 2Q 1Q)
	(PUSHJ P EDITSMASH)
	(MOVEI 3Q (QUOTE NIL))
	(HLRZ@ 2Q -1Q P)
	(EXCH 1Q -1Q P)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q EDITSMASH)
	NIL

(LAP LI SUBR)
	(EXCH 2Q 1Q)
	(PUSH P 1Q)
	(PUSHJ P EDITNTH)
	(MOVEM 1Q 0Q P)
	(JUMPN 1Q TAG2)
	(CALL 1Q (E ERR) S)
 TAG2	(HRRZ@ 2Q 0Q P)
	(HLRZ@ 1Q 0Q P)
	(CALL 2Q (E CONS) S)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(JRST 0Q EDITSMASH)
	NIL

(LAP LO SUBR)
	(EXCH 2Q 1Q)
	(PUSH P 1Q)
	(PUSHJ P EDITNTH)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG3)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG2	(HLRZ@ 3Q 0Q P)
	(HRRZ@ 3Q 3Q)
	(HLRZ@ 2Q 0Q P)
	(HLRZ@ 2Q 2Q)
	(POP P 1Q)
	(JRST 0Q EDITSMASH)
	NIL

(LAP BI SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(MOVE 1Q 3Q)
	(PUSHJ P EDITNTH)
	(HRRZ@ 5Q 1Q)
	(MOVE 2Q -2Q P)
	(PUSH P 1Q)
	(MOVE 1Q -1Q P)
	(PUSH P 5Q)
	(PUSHJ P EDITNTH)
	(MOVEM 1Q -2Q P)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG5)
	(MOVE 1Q 5Q)
	(CALL 1Q (E LENGTH) S)
	(PUSH P 1Q)
	(MOVE 1Q -3Q P)
	(CALL 1Q (E LENGTH) S)
	(POP P 2Q)
	(CALL 2Q (E *LESS) S)
	(JUMPN 1Q TAG5)
	(MOVEI 3Q (QUOTE NIL))
	(HLRZ@ 2Q -1Q P)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITSMASH)
	(HRRZ@ 2Q -2Q P)
	(HLRZ@ 1Q -2Q P)
	(CALL 2Q (E CONS) S)
	(MOVE 3Q 0Q P)
	(MOVE 2Q 1Q)
	(MOVE 1Q -2Q P)
	(PUSHJ P EDITSMASH)
	(JRST 0Q TAG4)
 TAG5	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG4	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP BO SUBR)
	(EXCH 2Q 1Q)
	(PUSH P 1Q)
	(PUSHJ P EDITNTH)
	(MOVEM 1Q 0Q P)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG2)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG2	(HLRZ@ 2Q 0Q P)
	(HLRZ@ 2Q 2Q)
	(PUSH P 2Q)
	(HRRZ@ 2Q -1Q P)
	(HLRZ@ 1Q -1Q P)
	(HRRZ@ 1Q 1Q)
	(PUSHJ P EDITNCONC)
	(MOVE 3Q 1Q)
	(POP P 2Q)
	(POP P 1Q)
	(JRST 0Q EDITSMASH)
	NIL

(LAP EDITDEFAULT SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 5Q (SPECIAL LCFLG) S)
	(JUMPE 5Q TAG5)
	(CAIE 5Q (QUOTE T) S)
	(JRST 0Q TAG7)
	(CALL 1Q (E EDITQF) S)
	(JRST 0Q TAG6)
 TAG7	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 5Q)
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q (SPECIAL TOPFLG) S)
	(PUSHJ P EDITCOM)
 TAG6	(JRST 0Q TAG1)
 TAG5	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG11)
	(MOVE 2Q (SPECIAL EDITOPS) S)
	(HLRZ@ 1Q -1Q P)
	(CALL 2Q (E ASSOC) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG13)
	(HRRZ@ 2Q 1Q)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITRAN)
	(JRST 0Q TAG12)
 TAG13	(CALL 1Q (E ERR) S)
 TAG12	(JRST 0Q TAG1)
 TAG11	(MOVE 5Q (SPECIAL TOPFLG) S)
	(JUMPN 5Q TAG15)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG4)
 TAG15	(MOVE 2Q (SPECIAL EDITCOMSL) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG16)
	(MOVE 5Q (SPECIAL READBUF) S)
	(JUMPE 5Q TAG20)
	(MOVE 2Q 5Q)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E CONS) S)
	(CLEARM 5Q (SPECIAL READBUF) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG17)
 TAG20	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG17	(JRST 0Q TAG4)
 TAG16	(MOVEI 2Q (QUOTE -1Q))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E ANTHCHAR) S)
	(CAIE 1Q (QUOTE 120Q))
	(JRST 0Q TAG22)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E AEXPLODE) S)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E LAST) S)
	(MOVEI 5Q (QUOTE 40Q))
	(HRLM@ 5Q 1Q)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E READLIST) S)
	(MOVEI 2Q (QUOTE (↑ ← UP NX BK !NX UNDO !0)) S)
	(MOVEM 1Q -1Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG22)
	(MOVE 2Q (SPECIAL READBUF) S)
	(MOVEI 1Q (QUOTE P) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL READBUF) S)
	(JRST 0Q TAG4)
 TAG22	(MOVEI 2Q (QUOTE 1Q))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E ANTHCHAR) S)
	(CAIE 1Q (QUOTE 120Q))
	(JRST 0Q TAG25)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E AEXPLODE) S)
	(HRRZ@ 1Q 1Q)
	(CALL 1Q (E READLIST) S)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG25)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE 0Q))
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE P) S)
	(CALL 2Q (E XCONS) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG4)
 TAG25	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG4	(MOVE 2Q (SPECIAL EDITOPS) S)
	(HLRZ@ 1Q -1Q P)
	(CALL 2Q (E ASSOC) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG32)
	(HRRZ@ 2Q 1Q)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITRAN)
	(JRST 0Q TAG31)
 TAG32	(MOVE 1Q -1Q P)
	(MOVEM 1Q (SPECIAL COM) S)
	(MOVE 2Q (SPECIAL TOPFLG) S)
	(PUSHJ P EDITCOM)
 TAG31
 TAG1	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP EDUP SUBR)
	(HLRZ@ 5Q (SPECIAL L) S)
	(PUSH P 5Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(HRRZ@ 5Q (SPECIAL L) S)
	(MOVEM 5Q 0Q P)
	(JUMPN 5Q TAG6)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG5)
 TAG6	(HLRZ@ 2Q 5Q)
	(MOVE 1Q -3Q P)
	(CALL 2Q (E TAILP) S)
	(JUMPN 1Q TAG3)
	(HLRZ@ 2Q 0Q P)
	(MOVE 1Q -3Q P)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG7)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG5)
 TAG7	(CAMN 1Q (SPECIAL LASTAIL) S)
	(JRST 0Q TAG5)
	(HRRZ@ 2Q 1Q)
	(MOVE 1Q -3Q P)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q -2Q P)
	(JUMPE 1Q TAG5)
	(HLRZ@ 5Q (SPECIAL LASTAIL) S)
	(CAME 5Q -3Q P)
	(JRST 0Q TAG11)
	(MOVE 2Q -2Q P)
	(MOVE 1Q (SPECIAL LASTAIL) S)
	(CALL 2Q (E TAILP) S)
	(JUMPE 1Q TAG11)
	(MOVE 5Q (SPECIAL LASTAIL) S)
	(MOVEM 5Q -1Q P)
	(JRST 0Q TAG5)
 TAG11	(MOVE 1Q -3Q P)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE "- Location Uncertain") S)
	(CALL 1Q (E PRINC) S)
	(CALL 0Q (E TERPRI) S)
 TAG5	(HLRZ@ 5Q 0Q P)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG16)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL L) S)
	(JRST 0Q TAG15)
 TAG16	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL L) S)
 TAG15
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 4Q 0Q 4Q 0Q))
	(POPJ P)
	NIL

(LAP EDIT* SUBR)
	(MOVE 5Q (SPECIAL L) S)
	(PUSH P 5Q)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P 1Q)
	(PUSHJ P EDUP)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E LENGTH) S)
	(PUSHJ P SPECSTR)
	(MOVEI 5Q (QUOTE NIL))
	(MOVE 4Q -1Q P)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL COM) S)
	(0Q 4Q (SPECIAL L) S)
	(MOVEM 1Q -1Q P)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPN 1Q TAG2)
	(CALL 1Q (E ERR) S)
 TAG2	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE !0) S)
	(PUSHJ P EDITCOM)
	(MOVE 2Q -1Q P)
	(POP P 1Q)
	(CALL 2Q (E *DIF) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P EDITCOM)
	(MOVE 1Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(MOVEM 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP EDOR SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL COMS) S)
 TAG1	(MOVE 5Q (SPECIAL COMS) S)
	(JUMPN 5Q TAG6)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG5)
 TAG6	(PUSH P (C 0Q 0Q TAG10 0Q))
	(MOVEI 1Q (QUOTE T) S)
	(JSP 13Q *ERRSET1)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(HLRZ@ 1Q (SPECIAL COMS) S)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG12)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL COMS) S)
	(PUSHJ P EDITCOM)
	(JRST 0Q TAG11)
 TAG12	(HLRZ@ 1Q (SPECIAL COMS) S)
	(PUSHJ P EDITCOMS)
 TAG11	(MOVE 1Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(MOVEM 1Q (SPECIAL L) S)
	(JRST 0Q *ERRSET2)
 TAG10	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG7)
	(HLRZ@ 1Q (SPECIAL L) S)
	(JRST 0Q TAG2)
 TAG7
 TAG5	(HRRZ@ 5Q (SPECIAL COMS) S)
	(MOVEM 5Q (SPECIAL COMS) S)
	(JRST 0Q TAG1)
 TAG2	(JRST 0Q SPECSTR)
	NIL

(LAP ERRCOM SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL COMS) S)
	(PUSH P (C 0Q 0Q TAG1 0Q))
	(MOVEI 1Q (QUOTE T) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q (SPECIAL COMS) S)
	(PUSHJ P EDITCOMS)
	(JRST 0Q *ERRSET2)
 TAG1	(JRST 0Q SPECSTR)
	NIL

(LAP EDRPT SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (SPECIAL L) S)
	(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
 TAG1	(MOVE 2Q (SPECIAL MAXLOOP) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG6)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVEI 1Q (QUOTE "MAXLOOP Exceeded") S)
	(CALL 1Q (E PRINC) S)
	(CALL 0Q (E TERPRI) S)
	(JRST 0Q TAG5)
 TAG6	(MOVE 1Q -3Q P)
	(PUSHJ P ERRCOM)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG7)
	(MOVE 5Q (SPECIAL L) S)
	(MOVE 1Q 0Q P)
	(MOVEM 5Q -1Q P)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG7	(MOVE 5Q -2Q P)
	(JUMPN 5Q TAG10)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E PRIN1) S)
	(MOVEI 1Q (QUOTE " Occurrences") S)
	(CALL 1Q (E PRINC) S)
	(CALL 0Q (E TERPRI) S)
 TAG10
 TAG5	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 4Q 0Q 4Q 0Q))
	(POPJ P)
	NIL

(LAP EDLOC SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL LCFLG) S)
	(PUSH P 1Q)
	(PUSH P (SPECIAL L) S)
	(PUSH P (SPECIAL UNFIND) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL LCFLG) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG6)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -3Q P)
	(PUSHJ P EDITCOM)
	(JRST 0Q TAG5)
 TAG6	(HRRZ@ 5Q -3Q P)
	(JUMPN 5Q TAG7)
	(HLRZ@ 1Q -3Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG7)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q -3Q P)
	(PUSHJ P EDITCOM)
	(JRST 0Q TAG5)
 TAG7	(JRST 0Q TAG1)
 TAG5	(MOVE 5Q -2Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(JRST 0Q TAG2)
 TAG1	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q 0Q P)
	(MOVE 1Q -3Q P)
	(PUSHJ P ERRCOM)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG13)
	(MOVE 5Q -2Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(JRST 0Q TAG2)
 TAG13	(MOVE 2Q (SPECIAL L) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E EQUAL) S)
	(JUMPE 1Q TAG15)
	(MOVE 5Q -2Q P)
	(MOVEM 5Q (SPECIAL L) S)
	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG15	(JRST 0Q TAG1)
 TAG2	(SUB P (C 4Q 0Q 4Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDLOCL SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL COMS) S)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 1Q (E NCONS) S)
	(MOVEI 5Q (QUOTE NIL))
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(0Q 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q (SPECIAL COMS) S)
	(PUSHJ P EDLOC)
	(MOVE 1Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(HRRZ@ 2Q (SPECIAL L) S)
	(CALL 2Q (E *NCONC) S)
	(MOVEM 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(JRST 0Q SPECSTR)
	NIL

(LAP EDIT: SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL TOFLG) S)
	(0Q 0Q (SPECIAL L0) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L0) S)
	(PUSH P 3Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
 TAG1	(MOVE 5Q -2Q P)
	(JUMPE 5Q TAG11)
	(HLRZ@ 1Q 5Q)
	(HRRZ@ 5Q 5Q)
	(PUSH P 0Q P)
	(MOVEM 1Q -3Q P)
	(PUSH P 5Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG13)
	(HLRZ@ 5Q -4Q P)
	(CAIE 5Q (QUOTE ##) S)
	(JRST 0Q TAG13)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEI 4Q (QUOTE NIL))
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(0Q 4Q (SPECIAL UNDOLST1) S)
	(HRRZ@ 1Q -4Q P)
	(PUSHJ P EDITCOMS)
	(CALL 1Q (E COPY) S)
	(PUSHJ P SPECSTR)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG12)
 TAG13	(MOVE 2Q -4Q P)
 TAG12	(MOVE 1Q -1Q P)
	(CALL 2Q (E TCONC) S)
	(POP P -4Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG1)
 TAG11	(HLRZ@ 5Q 0Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(MOVEM 5Q -2Q P)
	(MOVE 4Q -3Q P)
	(JUMPE 4Q TAG20)
	(HLRZ@ 5Q 4Q)
	(CAIE 5Q (QUOTE HERE) S)
	(JRST 0Q TAG22)
	(HRRZ@ 5Q 4Q)
	(MOVEM 5Q -3Q P)
 TAG22	(MOVE 1Q -3Q P)
	(PUSHJ P EDLOC)
 TAG20	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG24)
	(PUSHJ P EDUP)
	(JRST 0Q TAG23)
 TAG24	(MOVE 5Q -4Q P)
	(CAIE 5Q (QUOTE :) S)
	(JRST 0Q TAG25)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E LENGTH) S)
	(CAIE 1Q (QUOTE 1Q))
	(JRST 0Q TAG25)
	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG25)
	(MOVEI 5Q (QUOTE T) S)
	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVEI 2Q (QUOTE -1Q))
	(MOVEI 1Q (QUOTE 1Q))
	(MOVEM 5Q 0Q P)
	(CALL 3Q (E BI) S)
	(JRST 0Q TAG23)
 TAG25	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG23	(MOVE 5Q (SPECIAL L0) S)
	(CAME 5Q (SPECIAL L) S)
	(JRST 0Q TAG34)
	(CLEARM 5Q -3Q P)
 TAG34	(MOVEI 2Q (QUOTE (B BEFORE)) S)
	(MOVE 1Q -4Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG36)
	(MOVE 2Q -2Q P)
	(MOVEI 1Q (QUOTE -1Q))
	(PUSHJ P EDIT2F)
	(JRST 0Q TAG35)
 TAG36	(MOVEI 2Q (QUOTE (A AFTER)) S)
	(MOVE 1Q -4Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG37)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG41)
	(MOVE 2Q -2Q P)
	(MOVEI 1Q (QUOTE -2Q))
	(PUSHJ P EDIT2F)
	(JRST 0Q TAG40)
 TAG41	(MOVE 2Q -2Q P)
	(MOVEI 1Q (QUOTE N) S)
	(CALL 2Q (E CONS) S)
	(MOVE 2Q (SPECIAL COPYFLG) S)
	(PUSHJ P EDITCOML)
 TAG40	(JRST 0Q TAG35)
 TAG37	(MOVEI 2Q (QUOTE (: FOR)) S)
	(MOVE 1Q -4Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG43)
	(MOVE 5Q -2Q P)
	(JUMPN 5Q TAG46)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG45)
 TAG46	(MOVE 2Q -2Q P)
	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDIT2F)
	(JRST 0Q TAG44)
 TAG45	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG47)
	(PUSHJ P EDUP)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDIT2F)
	(JRST 0Q TAG44)
 TAG47	(MOVEI 1Q (QUOTE (0Q (NTH -2Q) (2Q))) S)
	(PUSHJ P EDITCOMS)
 TAG44	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG52)
	(HLRZ@ 2Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 2Q (E BO) S)
 TAG52	(MOVE 1Q -3Q P)
	(JUMPN 1Q TAG54)
	(MOVE 1Q (SPECIAL L) S)
	(JRST 0Q TAG53)
 TAG54	(MOVEI 1Q (QUOTE NIL))
 TAG53	(JRST 0Q TAG2)
 TAG43	(CALL 1Q (E ERR) S)
 TAG35	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 5Q 0Q 5Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITMBD SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL TOFLG) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPE 1Q TAG5)
	(PUSHJ P EDLOC)
 TAG5	(HRRZ@ 5Q (SPECIAL L) S)
	(JUMPE 5Q TAG7)
	(PUSHJ P EDUP)
	(JRST 0Q TAG6)
 TAG7	(MOVEI 5Q (QUOTE T) S)
	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVEI 2Q (QUOTE -1Q))
	(MOVEI 1Q (QUOTE 1Q))
	(MOVEM 5Q -1Q P)
	(CALL 3Q (E BI) S)
 TAG6	(MOVE 5Q (SPECIAL TOFLG) S)
	(JUMPE 5Q TAG12)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HLRZ@ 5Q 5Q)
	(JRST 0Q TAG11)
 TAG12	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E NCONS) S)
	(EXCH 5Q 1Q)
 TAG11	(MOVEM 5Q 0Q P)
	(HLRZ@ 1Q -2Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG16)
	(HRRZ@ 1Q -2Q P)
	(JUMPE 1Q TAG15)
 TAG16	(MOVE 2Q 0Q P)
	(MOVE 1Q -2Q P)
	(CALL 2Q (E *APPEND) S)
	(JRST 0Q TAG14)
 TAG15	(HLRZ@ 3Q -2Q P)
	(MOVEI 2Q (QUOTE *) S)
	(MOVE 1Q 0Q P)
	(CALL 3Q (E LSUBST) S)
 TAG14	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDIT2F)
	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG21)
	(HLRZ@ 2Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 2Q (E BO) S)
	(JRST 0Q TAG20)
 TAG21	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(PUSH P 1Q)
	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E TAILP) S)
	(JUMPE 1Q TAG24)
	(HRRZ@ 2Q (SPECIAL L) S)
	(JRST 0Q TAG23)
 TAG24	(MOVE 2Q (SPECIAL L) S)
 TAG23	(POP P 1Q)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL L) S)
 TAG20	(MOVE 1Q -3Q P)
	(JUMPN 1Q TAG27)
	(MOVE 1Q (SPECIAL L) S)
	(JRST 0Q TAG26)
 TAG27	(MOVEI 1Q (QUOTE NIL))
 TAG26	(SUB P (C 4Q 0Q 4Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITXTR SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL TOFLG) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPE 1Q TAG5)
	(PUSHJ P EDLOC)
 TAG5	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E TAILP) S)
	(JUMPE 1Q TAG7)
	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(JRST 0Q TAG6)
 TAG7	(HLRZ@ 1Q (SPECIAL L) S)
 TAG6	(CALL 1Q (E NCONS) S)
	(MOVEI 5Q (QUOTE NIL))
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(0Q 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDLOC)
	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E TAILP) S)
	(JUMPE 1Q TAG12)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HLRZ@ 5Q 5Q)
	(JRST 0Q TAG11)
 TAG12	(HLRZ@ 5Q (SPECIAL L) S)
 TAG11	(PUSHJ P SPECSTR)
	(MOVEM 5Q -1Q P)
	(HRRZ@ 4Q (SPECIAL L) S)
	(JUMPE 4Q TAG15)
	(PUSHJ P EDUP)
	(JRST 0Q TAG14)
 TAG15	(MOVE 1Q 5Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG16)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG14)
 TAG16	(MOVEI 5Q (QUOTE T) S)
	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVEI 2Q (QUOTE -1Q))
	(MOVEI 1Q (QUOTE 1Q))
	(MOVEM 5Q 0Q P)
	(CALL 3Q (E BI) S)
 TAG14	(MOVE 2Q (SPECIAL TOFLG) S)
	(JUMPE 2Q TAG21)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *APPEND) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG20)
 TAG21	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
 TAG20	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDIT2F)
	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG24)
	(HLRZ@ 2Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 2Q (E BO) S)
	(JRST 0Q TAG23)
 TAG24	(MOVE 5Q (SPECIAL TOFLG) S)
	(JUMPN 5Q TAG25)
	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG25)
	(HLRZ@ 1Q (SPECIAL L) S)
	(HLRZ@ 1Q 1Q)
	(PUSH P 1Q)
	(HRRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(CALL 2Q (E TAILP) S)
	(JUMPE 1Q TAG31)
	(HRRZ@ 2Q (SPECIAL L) S)
	(JRST 0Q TAG30)
 TAG31	(MOVE 2Q (SPECIAL L) S)
 TAG30	(POP P 1Q)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL L) S)
 TAG25
 TAG23	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITELT SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL L) S)
	(PUSH P 1Q)
	(PUSHJ P EDLOC)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q 0Q P)
	(HRRZ@ 4Q (SPECIAL L) S)
	(MOVEM 4Q (SPECIAL L) S)
	(HRRZ@ 4Q 4Q)
	(JUMPN 4Q TAG1)
	(HLRZ@ 1Q 5Q)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITCONT SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL SN) S)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P 1Q)
	(CALL 1Q (E EDITFPAT) S)
	(MOVEM 1Q 0Q P)
 TAG1	(MOVEI 2Q (QUOTE N) S)
	(MOVE 1Q 0Q P)
	(PUSHJ P EDIT4F)
	(JUMPN 1Q TAG7)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG6)
 TAG7	(PUSH P (C 0Q 0Q TAG10 0Q))
	(MOVEI 1Q (QUOTE T) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q (SPECIAL SN) S)
	(PUSHJ P EDLOCL)
	(JRST 0Q *ERRSET2)
 TAG10	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG1)
 TAG6
 TAG2	(HRRZ@ 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L) S)
	(JUMPN 5Q TAG12)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG11)
 TAG12	(MOVE 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG15)
	(HLRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(CAME 5Q 0Q P)
	(JRST 0Q TAG13)
	(JRST 0Q TAG14)
 TAG15	(HLRZ@ 5Q 0Q P)
	(CAIE 5Q (QUOTE /@) S)
	(JRST 0Q TAG16)
	(HLRZ@ 2Q (SPECIAL L) S)
	(HLRZ@ 2Q 2Q)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG13)
	(JRST 0Q TAG14)
 TAG16	(HLRZ@ 2Q (SPECIAL L) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E EDIT4E) S)
	(JUMPE 1Q TAG13)
 TAG14	(MOVE 1Q (SPECIAL L) S)
	(JRST 0Q TAG3)
 TAG13
 TAG11	(JRST 0Q TAG2)
 TAG3	(PUSHJ P SPECSTR)
	(MOVEM 1Q (SPECIAL L) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITSW SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(EXCH 2Q 1Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P EDITNTH)
	(MOVE 2Q 0Q P)
	(PUSH P 1Q)
	(HLRZ@ 1Q (SPECIAL L) S)
	(PUSHJ P EDITNTH)
	(HLRZ@ 5Q 0Q P)
	(HRRZ@ 3Q 0Q P)
	(HLRZ@ 2Q 1Q)
	(PUSH P 1Q)
	(MOVE 1Q -1Q P)
	(PUSH P 5Q)
	(PUSHJ P EDITSMASH)
	(HRRZ@ 3Q -1Q P)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITSMASH)
	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP EDITMV SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL L0) S)
	(0Q 0Q (SPECIAL TOFLG) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL L0) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPE 1Q TAG5)
	(PUSHJ P EDLOC)
 TAG5	(MOVE 5Q -3Q P)
	(CAIE 5Q (QUOTE HERE) S)
	(JRST 0Q TAG7)
	(MOVE 5Q -4Q P)
	(JUMPN 5Q TAG11)
	(MOVE 1Q -2Q P)
	(PUSHJ P EDLOC)
	(CLEARM 5Q -2Q P)
 TAG11	(MOVEI 5Q (QUOTE :) S)
	(MOVEM 5Q -3Q P)
	(JRST 0Q TAG6)
 TAG7	(HLRZ@ 5Q -2Q P)
	(CAIE 5Q (QUOTE HERE) S)
	(JRST 0Q TAG12)
	(MOVE 5Q -4Q P)
	(JUMPN 5Q TAG14)
	(HRRZ@ 1Q -2Q P)
	(PUSHJ P EDLOC)
	(CLEARM 5Q -2Q P)
	(JRST 0Q TAG13)
 TAG14	(HRRZ@ 5Q -2Q P)
	(MOVEM 5Q -2Q P)
 TAG13
 TAG12
 TAG6	(PUSHJ P EDUP)
	(MOVE 5Q (SPECIAL L) S)
	(HLRZ@ 4Q (SPECIAL L) S)
	(HLRZ@ 4Q 4Q)
	(MOVE 3Q (SPECIAL L0) S)
	(MOVEM 3Q (SPECIAL L) S)
	(MOVEM 4Q -1Q P)
	(MOVEM 5Q 0Q P)
	(MOVE 3Q -2Q P)
	(JUMPE 3Q TAG17)
	(MOVE 1Q 3Q)
	(PUSHJ P EDLOC)
 TAG17	(MOVE 1Q (SPECIAL TOFLG) S)
	(JUMPE 1Q TAG21)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *APPEND) S)
	(MOVE 2Q -3Q P)
	(CALL 2Q (E XCONS) S)
	(JRST 0Q TAG20)
 TAG21	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q -3Q P)
	(CALL 2Q (E XCONS) S)
 TAG20	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P EDITCOML)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL L) S)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE (1Q DELETE)) S)
	(PUSHJ P EDITCOMS)
	(PUSHJ P SPECSTR)
	(MOVE 1Q -4Q P)
	(JUMPN 1Q TAG27)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q (SPECIAL L) S)
	(JRST 0Q TAG26)
 TAG27	(MOVE 1Q -2Q P)
	(JUMPN 1Q TAG30)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q (SPECIAL L0) S)
	(JRST 0Q TAG26)
 TAG30	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q (SPECIAL L0) S)
 TAG26	(SUB P (C 5Q 0Q 5Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EDITTO SUBR)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(JUMPE 1Q TAG2)
	(PUSHJ P EDLOC)
	(PUSHJ P EDUP)
 TAG2	(MOVE 1Q -2Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG4)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG4)
	(MOVE 2Q -2Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG4)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E ADD1) S)
	(MOVE 2Q -2Q P)
	(CALL 2Q (E *DIF) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG3)
 TAG4	(MOVE 2Q -1Q P)
 TAG3	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 3Q (E BI) S)
	(MOVE 5Q 0Q P)
	(CAIE 5Q (QUOTE TO) S)
	(JRST 0Q TAG13)
	(HLRZ@ 5Q (SPECIAL L) S)
	(HLRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(JUMPE 5Q TAG13)
	(HLRZ@ 3Q (SPECIAL L) S)
	(MOVEI 2Q (QUOTE -2Q))
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 3Q (E RI) S)
 TAG13	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE 1Q))
	(PUSHJ P EDITCOM)
	(MOVE 5Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(MOVEM 5Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE T) S)
	(MOVEM 1Q (SPECIAL TOFLG) S)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP EDITBELOW SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(MOVE 1Q 2Q)
	(CALL 1Q (E *EVAL) S)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E MINUSP) S)
	(JUMPE 1Q TAG2)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG2	(MOVE 5Q (SPECIAL L) S)
	(MOVEI 4Q (QUOTE ←) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(0Q 4Q (SPECIAL LCFLG) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(PUSHJ P EDITCOM)
	(MOVE 1Q (SPECIAL L) S)
	(PUSHJ P SPECSTR)
	(CALL 1Q (E LENGTH) S)
	(PUSH P 1Q)
	(MOVE 1Q (SPECIAL L) S)
	(CALL 1Q (E LENGTH) S)
	(PUSH P 1Q)
	(MOVE 2Q -2Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *PLUS) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG7)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG7	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(MOVE 1Q 0Q P)
	(PUSH P (SPECIAL L) S)
	(CALL 1Q (E ADD1) S)
	(MOVE 2Q -2Q P)
	(CALL 2Q (E *DIF) S)
	(MOVE 2Q -3Q P)
	(CALL 2Q (E *DIF) S)
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(CALL 2Q (E NTH) S)
	(MOVEM 1Q (SPECIAL L) S)
	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 4Q 0Q 4Q 0Q))
	(POPJ P)
	NIL

(LAP EDITRAN SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(MOVE 5Q (SPECIAL L) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL L) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 2Q TAG11)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG10)
 TAG11	(HLRZ@ 5Q 2Q)
	(MOVEM 5Q 0Q P)
	(JUMPE 5Q TAG2)
 TAG10
 TAG1	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG13)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG12)
 TAG13	(MOVE 2Q -3Q P)
	(HLRZ@ 1Q 5Q)
	(CALL 2Q (E MEMQ) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG14)
	(HRRZ@ 5Q 5Q)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG14
 TAG12
 TAG2	(HRRZ@ 1Q -2Q P)
	(HLRZ@ 1Q 1Q)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL #1) S)
	(0Q 0Q (SPECIAL #2) S)
	(0Q 0Q (SPECIAL #3) S)
	(MOVEM 1Q -2Q P)
	(HLRZ@ 1Q 1Q)
	(PUSH P 1Q)
	(MOVE 2Q -2Q P)
	(MOVE 1Q -4Q P)
	(CALL 2Q (E LDIFF) S)
	(HRRZ@ 5Q 1Q)
	(MOVEM 5Q (SPECIAL #1) S)
	(HLRZ@ 5Q -1Q P)
	(MOVEM 5Q (SPECIAL #2) S)
	(HRRZ@ 5Q -2Q P)
	(MOVEM 5Q (SPECIAL #3) S)
	(HRRZ@ 1Q -3Q P)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
 TAG3	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG24)
	(HLRZ@ 1Q 5Q)
	(HRRZ@ 5Q 5Q)
	(PUSH P 0Q P)
	(MOVEM 1Q -2Q P)
	(PUSH P 5Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG26)
	(MOVE 5Q -3Q P)
	(CAIE 5Q (QUOTE #1) S)
	(JRST 0Q TAG30)
	(MOVE 2Q (SPECIAL #1) S)
	(JRST 0Q TAG27)
 TAG30	(CAIE 5Q (QUOTE #2) S)
	(JRST 0Q TAG31)
	(MOVE 2Q (SPECIAL #2) S)
	(JRST 0Q TAG27)
 TAG31	(CAIE 5Q (QUOTE #3) S)
	(JRST 0Q TAG32)
	(MOVE 2Q (SPECIAL #3) S)
	(JRST 0Q TAG27)
 TAG32	(MOVE 2Q 5Q)
 TAG27	(JRST 0Q TAG25)
 TAG26	(MOVE 1Q -3Q P)
	(CALL 1Q (E *EVAL) S)
	(MOVE 2Q 1Q)
 TAG25	(MOVE 1Q -1Q P)
	(CALL 2Q (E TCONC) S)
	(POP P -3Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG3)
 TAG24	(HLRZ@ 2Q 0Q P)
	(PUSHJ P SPECSTR)
	(MOVE 1Q -2Q P)
	(CALL 2Q (E *APPLY) S)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(MOVEM 1Q 0Q P)
	(JUMPN 1Q TAG36)
	(MOVE 5Q (SPECIAL L) S)
	(MOVEM 5Q (SPECIAL UNFIND) S)
	(JRST 0Q TAG35)
 TAG36
 TAG35	(PUSHJ P SPECSTR)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JUMPN 1Q TAG4)
	(MOVE 1Q (SPECIAL L) S)
 TAG4	(MOVEM 1Q (SPECIAL L) S)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP UNPACKSTRING SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL L) S)
	(CALL 1Q (E PATOM) S)
	(JUMPN 1Q TAG5)
	(MOVE 1Q (SPECIAL L) S)
	(CALL 1Q (E LAST) S)
	(HRRZ@ 5Q 1Q)
	(JUMPE 5Q TAG4)
 TAG5	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
 TAG4	(PUSH P (SPECIAL L) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
 TAG1	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG12)
	(HLRZ@ 1Q 5Q)
	(HRRZ@ 5Q 5Q)
	(PUSH P 0Q P)
	(MOVEM 1Q -2Q P)
	(PUSH P 5Q)
	(CALL 1Q (E STRINGP) S)
	(JUMPN 1Q TAG14)
	(MOVE 1Q -3Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG13)
 TAG14	(MOVE 1Q -3Q P)
	(CALL 1Q (E AEXPLODE) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
 TAG2	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG22)
	(HLRZ@ 1Q 5Q)
	(HRRZ@ 5Q 5Q)
	(PUSH P 0Q P)
	(MOVEM 1Q -2Q P)
	(PUSH P 5Q)
	(CALL 1Q (E DELIM) S)
	(JUMPE 1Q TAG24)
	(MOVE 5Q -3Q P)
	(CAIN 5Q (QUOTE 40Q))
	(JRST 0Q TAG24)
	(CAIN 5Q (QUOTE 42Q))
	(JRST 0Q TAG24)
	(MOVE 1Q -3Q P)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE 57Q))
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q 1Q)
	(JRST 0Q TAG23)
 TAG24	(MOVE 1Q -3Q P)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 1Q)
 TAG23	(MOVE 1Q -1Q P)
	(CALL 2Q (E LCONC) S)
	(POP P -3Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG2)
 TAG22	(HLRZ@ 5Q 0Q P)
	(MOVE 1Q 5Q)
	(CALL 1Q (E LAST) S)
	(MOVEI 4Q (QUOTE 51Q))
	(HRLM@ 4Q 1Q)
	(MOVEI 4Q (QUOTE 50Q))
	(HRLM@ 4Q 5Q)
	(MOVE 1Q 5Q)
	(MOVEM 5Q -5Q P)
	(CALL 1Q (E READLIST) S)
	(MOVE 2Q 1Q)
	(SUB P (C 2Q 0Q 2Q 0Q))
 TAG13	(MOVE 1Q -1Q P)
	(CALL 2Q (E LCONC) S)
	(POP P -3Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG1)
 TAG12	(HLRZ@ 1Q 0Q P)
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(DEFPROP EDITMACROS
 (NIL (MAKEFN (EX ARGS N M)
	      (IF 'M
		  ((BI N M) (LC . N) (BELOW \))
		  ((IF 'N ((BI N) (LC . N) (BELOW \)))))
	      (E (MAPC '(LAMBDA (X Y) (EDITDSUBST X Y (##))) 'ARGS (CDR 'EX)) T)
	      (E (APPLY# 'DE (CONS (CAR 'EX) (CONS 'ARGS (##)))))
	      UP 
	      (1Q EX))
      (REPACK X (LC . X) REPACK)
      (REPACK NIL 
	      (IF (CONSP (##)) (1Q) NIL)
	      (I : (PRINT (READLIST (EDITE (EXPLODE (##)) NIL NIL)))))
      (NEX (X) (BELOW X) NX)
      (NEX NIL (BELOW ←) NX)
      (THIRD X (ORR ((LC . X) (LC . X) (LC . X))))
      (SECOND X (ORR ((LC . X) (LC . X))))
      (SORT X (LC . X) SORT)
      (SORT NIL 
	    (IF (CDR L) (UP 1Q) NIL)
	    (I : (SORT (##)))
	    (IF (CDR L) (1Q) NIL))
      (UNPACK (X) (LC . X) UNPACK)
      (UNPACK NIL 
	      (IF (CDR L) (UP 1Q) NIL)
	      (I : (UNPACKSTRING (##)))
	      (IF (CDR L) (1Q) NIL)))
 VALUE)

(DEFPROP EDITOPS
 (NIL (INSERT (BEFORE AFTER FOR) (EDIT: #2 #3 #1))
      (REPLACE (WITH BY) (EDIT: : #1 #3))
      (CHANGE (TO) (EDIT: : #1 #3))
      (DELETE NIL (EDIT: : #1 NIL))
      (EMBED (IN WITH) (EDITMBD #1 #3))
      (SURROUND (WITH IN) (EDITMBD #1 #3))
      (MOVE (TO) (EDITMV #1 (CAR #3) (CDR #3)))
      (EXTRACT (FROM) (EDITXTR #3 #1)))
 VALUE)

(DEFPROP EDITL0 **EDITOR** ERXACTION)

(DEFV EDITCOMSL
      (S R I N FS F= ORF NTH IF RI RO LI LO BI BO M ORR MBD XTR THRU TO A B : AFTER BEFORE FOR MV LP LPQ LC LCL
	 BELOW SW BIND COMS COMSQ INSERT REPLACE CHANGE EMBED SURROUND MOVE EXTRACT SECOND THIRD MAKEFN))

(DEFV USERMACROS NIL)

(DEFV LASTWORD NIL)

(DEFV EDITV NIL)

(DEFV EDITRACEFN NIL)

(DEFV UPFINDFLG T)

(DEFV MAXLEVEL 454Q)

(DEFV MAXLOOP 36Q)

(DEFV EDITPLEV 2Q)